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Preface 


APL with a Mathematical Accent is an introduction to the computer language ‘APL (A Programming 
Language), providing quick access to the powerful computational capabilities of the language for the 
newcomer to APL. The book’s organization capitalizes on the mathematical nature of the language, 
and complements standard curricula. A broad sampling of mathematical applications is included. 

The book can be used as a main text for a course that uses computers for solving mathematical 
problems or doing mathematical experimentation. Alternatively, portions of the book can serve as an 
adjunct text to provide methods for expeditious handling of computing problems. 

APL with a Mathematical Accent lets students quickly acquire computational skills applicable to 
various subject areas, particularly linear algebra, statistics, probability, numerical analysis, operations 
research, abstract algebra, number theory, and mathematical modeling. Experience has shown, for ex- 
ample, that using this book as an adjunct text can enhance a linear algebra course at a cost in time of 
one or two lectures early in the term, followed by about fifteen minutes spent on any particular APL 
functions needed for a given computer assignment. Selected reading assignments from chapters 1 
through 4 give sufficient preparation for computer solution of substantial problems from linear algebra. 
Flexibility exists for solving these problems using only primitive APL functions or using user-defined 
functions. 

The organization of APL with a Mathematical Accent facilitates looking up unfamiliar items and 
reviewing topics by 


- Providing a quick-reference function table 

- Keeping sections that introduce topics short and independent 
- Providing a contents and index 

- Including error message and debugging notes in an appendix 
- Providing system functions and variables in an appendix 


Individual functions, operators, et cetera, are first introduced and illustrated simply and indepen- 
dently of each other. A few topics are introduced in more than one place to preserve independence of 
sections. Then significant examples, often involving a topic from college-level mathematics, are given. 
These examples provide solutions for basic types of computer problems and illustrate good APL usage. 

The end-of-chapter exercises range from simple reviews of fact to challenging problems. Answers 
to underlined exercises are provided. Answers to all exercises are available by writing to Brooks/Cole. 


ix 


».4 Preface 


Overview 


Chapter | introduces the syntax of APL. It presents many of APL’s primitive mathematical functions 
and applies them to vector arguments. The chapter also introduces the reduction operator and shape and 
index generator, allowing the presentation of examples of useful computations that begin to give the 
flavor of APL computing. The chapter closes with a brief overview of the workspace environment and 
system commands. 

Chapter 2 treats numeric arrays and manipulations. It includes elementwise arithmetic, reshape, 
matrix reductions, outer products, catenation, and indexing and uses the manipulation of arrays as 
entities. Chapter Two also discusses the shape function and introduces empty arrays. 

Chapter 3 introduces user-defined functions that have explicit arguments and return a result usable 
by other functions. This “mathematical type” of user-defined function is used until Chapter 10, where 
“programming type” functions are developed. Also discussed in Chapter 3 are editing of functions, fre- 
quently used system commands, and functions with simple loops. Some features of user-defined func- 
tions (e.g., line labels and comments) that are in Chapter 10 may be studied along with this chapter. 

APL functions especially useful in matrix algebra are presented in Chapter 4. The chapter treats 
matrix product, matrix inverse, system solver, and transpose. It reviews and uses outer product and 
least-square solutions of linear systems. 

Chapter 5 treats the numerical relational functions (comparatives) and the logical functions. It 
develops generalized inner products with many examples on vectors and matrices and illustrates numer- 
ous tabulating capabilities of these functions. The floor, ceiling, and membership functions are intro- 
duced, and the system variable comparison tolerance is discussed. 

Simulation using the “randomizing” functions is a principal theme of Chapter 6. The roll, deal, 
factorial, and binomial functions are treated, and random link is discussed. The circular, hyperbolic, 
and pythagorean functions are presented. Many examples in this chapter use the relational functions 
from Chapter 5. 

The principal topics of Chapter 7 are descriptive statistics and character-based computer graphing. 
The chapter includes maximum, minimum, grade up, and replicate functions as well as the scan opera- 
tor. Character arrays are introduced for use in graphing, and applications to data analysis and sampling 
from populations are included. 

Array manipulation and construction is the theme of Chapter 8. The functions take, drop, ravel, 
replicate, expansion, compression, reverse, rotate, and laminate are presented. Applications to poly- 
nomial manipulations are illustrated. Higher dimensional arrays receive more treatment here than in 
previous chapters. 

The themes of Chapter 9 are orderings and representations. The sorting functions grade up, grade 
down, and dyadic iota are treated. The residue, represent, and base value functions are presented, and 
index origin and atomic vector are discussed. A working version of an error-correcting Hamming code 
completes the chapter. 

Chapter 10 provides tools for writing complex functions and programs. User-defined functions of 
the programming type are emphasized. Various modes of branching, line labels, comments, quad, and 
quote-quad are discussed and amply illustrated. The format and execute functions are treated. Complex 
sample programs are given. 

Appendix A is an introduction to APL’s effective debugging features. Appendix B shows how to 
use and manage workspaces. It also has a table of system variables and functions and brief descriptions 
of their uses. 

The bibliography has a wide range of sources on APL. In particular, it has books that are suitable 
as follow-ups to this one for different areas of APL, including those by Berquist; Brown, Pakin and 
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Polivka; and Gilman and Rose. It also lists books that apply APL to specific subjects as well as jour- 
nals that provide current information about APL, including vendors and products. 
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APL 


With a Mathematical Accent 


First Steps With APL 


Chapter One begins by discussing how to interact with APL and interpret basic APL statements. It 
gives several familiar mathematical functions and their APL denotations. It also introduces some of 
APL’s powerful vector processing capabilities and special functions. Finally, the chapter briefly dis- 
cusses some facts about the APL work environment and its management. 


1.1 Interacting With APL 


Using APL can be somewhat like using a calculator. You enter data or commands, and APL responds. 
If you enter 3+2, for example, the response is 5. The ongoing exchange between you and APL is 
recorded on paper or on a video screen. The record, or session log, of a few arithmetic problems could 
look like this: 


3x2 You type 3* 2, then press the Return key. 


6 APL gives this response. 
3-2 You enter 3+2. 

1.5 APL responds. 
3*2 You enter 3* 2. 

9 APL responds. 


The APL response begins at the left margin on the line below your entry. After the response there 
is an automatic advance to the next line and a six-space indent; then APL is ready for further input. 
This format makes it easy to distinguish your input from APL’s response. This book has several small 
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examples from a session log that are printed across the page like this: 


3x4 3+4 3+4 
12 0.75 81 


1.2. Order of Execution 


Common mathematical notation has rules governing the order in which mathematical operations are 
performed. For example, multiplication and division take precedence over addition and subtraction. 
The commonly used rules interpret 3 X 4 — 5 as 12 — 5, not3 X (—1) and2 + 6 + 3 as2 + 2, not 
8 + 3. Conventions for interpreting more complicated expressions such as sin’ab also exist, but they 
are intricate to codify and can lead to ambiguous expressions when many functions are involved. 

APL has but one rule governing the order of function execution within APL expressions. There is 
no hierarchy of functions with some taking precedence. The resulting simplicity is especially important 
because APL has many primitive (built-in) functions. Simply expressed the rule is 


APL functions are executed in order from right to left. 


Note that the rule is that you start at the right and work to the left. For example, the APL interpretation 
of the expression 3 x 4+5 is as follows: First add the 4 and 5 to get 9 (the rightmost function is +), 
then multiply 9 by 3 to get 27. Thus, the APL evaluation of 3*4+5 is 27. As with conventional 
mathematical notation, expressions may be grouped with parentheses; the nght-to-left rule also applies 
within the parentheses. 

Here are some examples; note the effect of parentheses: 


3x4+5 3x (4+5) (3x4)+5 
27 27 17 


8=2+2 (8=2)+2 12+4-3 
2 6 12 


The order of execution rule applies to all functions; here are examples with the power function or 
exponentiation, denoted *: 


2*3+2 (2*3)+2 2*3%*2 
32 10 912 


Roots are treated as fractional powers in APL; for example, 


9*.5 9*1+2 2*.5 
3 3 1.414213562 


1.3 Negative Sign, Minus Sign 


Negative numbers are indicated with a high minus sign; for example, ~ 2. Note the difference in 
position between the minus sign that indicates the arithmetic function subtraction, as in 3-5, and the 
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APL negative sign that serves as part of the symbol denoting a negative number, as in ~ 2. Here 
are examples: 


4-7 2-4+6 2-32 
3 8 7 

~4+7/ ~ 3x4 ~3*3 
3 12 "27 

~3*2 ~3* 2 2+ 2 
9 0O.1111111111 0.25 


1.4 Assignment and Variable Names 


APL variables are given values by assignment, which is symbolized with a left-pointing arrow as in 
A+5. When you enter A+ 5, 5 is stored with the name A, the automatic advancement and indenta- 
tion occurs in the session log, and APL awaits your next entry. After a variable has been assigned a 
value, entering that variable name alone results in the display in the session log of the current value of 
the variable. A new assignment to a variable name replaces any value formerly stored with that name. 
Here is a sample session log: 


A+5 
B+1+2+3 
B Display of B is requested. 
9 
A+B 
14 
A+A+B A is given a new value. 
A 
14 
2xC+A-B C is assigned a value within an expression. 
10 
C 
5 


APL displays the result of the last function applied in a line unless the last operation is assignment. 
Multiple assignments are convenient; for example, K+ J «1 would assign both K and J the value 1. 
The expression F+2+E+D*xD+3 would assign the values 3, 9, and 11 to the variables D, E, and 
F , respectively. 

More suggestive variable names can be helpful; for example, to find the area of a rectangle, 


BASE+10.7 
HE |GHT+8.1 
AREA+BASE x HE | GHT 
AREA 

86.67 


A letter followed by any combination of letters and numerals is a valid variable name; typically, sys- 
tems allow up to 77 characters in a name. Thus, AA, B14C, X5Y05, Z3 TERM, and MOON are 
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valid variable names. Modern systems usually have uppercase and lowercase alphabets, permitting 
ample flexibility in constructing names. 


1.5 Example: Heron’s Formula 


Suppose A, B, and C are the lengths of the sides of a triangle and S is its semiperimeter. The area of 
the triangle is given by Heron’s formula, which in common notation is 


Area = VS(S A) — BS — ©), 5= TA +B+C) 


The corresponding formulas in APL are 


S+.5xA+Bt+C 
AREA+(Sx(S-A)*x(S-B)xS-C)+*.5 


1.6 The Equals Function 


The APL equals function tests whether expressions have the same value and gives the result 1 to indi- 
cate true or 0 to indicate false. Equals is not used for assignment. With A«3 and B+7 we have 


3=A A=2 A=B-4 
1 0 1 


B=A+4 A+4=B B-4=A 
1 3 7 


(Remember to execute right to left.) 


1.7 Examples: Right Triangle Test, Conditional Incrementing 


(a) If X, Y, and Z are the side lengths of a triangle, with Z largest, you could test whether it is a 
right triangle with the expression (Z*2)=(X*2)+Y*2. 


(b) If you wished to increment a variable N by 3 if variable X equals N but leave N unchanged other- 
wise, the expression N«N+3* X=N would do that. This type of expression is useful in function 
definition (programming). 


1.8 Dyadic, Monadic Functions 


Each of the functions introduced thus far has its symbol appear between two numbers or variable 
names, called arguments of the function. For example, in the expression 3+5, 3 and 5 are arguments 
of the addition function; in 2=A, 2 and A are arguments of the equals function. APL functions that 
require two arguments are called dyadic functions. There are many dyadic functions, but there are 
many other APL functions that have only one argument; these are called monadic functions. The argu- 
ment of a monadic function is placed on the right of the function symbol. Two basic mathematical 
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functions that are monadic APL functions are negation and reciprocal. Negation is symbolized by the 
same minus sign as used for subtraction and yields the negative of its argument. Reciprocal is symbol- 


ized by the ordinary division sign, +, and yields the reciprocal of its argument. For example, 
-6 -~6 --6 

~6 6 6 
+2 ++2 +-9 

0.5 2 ~Q.5 


Because there are many primitive functions in APL, many of the function symbols serve “double 
duty” and signify a monadic or dyadic function according to context. The monadic interpretation of a 
function symbol applies if there is another function symbol immediately to the left of it or if it is the 
leftmost symbol within an expression; otherwise, the dyadic interpretation is understood. (Later the in- 
troduction of operators will modify this dichotomy.) Thus, in 6+-2 and -3+2 the monadic minus or 
negation is signified, but in 6-+2 the dyadic minus or subtraction is understood; for example, 


6+-2 -3+2 6-+2 
3 ~1.5 9.95 


Some other monadic functions are introduced next. Monadic * denotes the signum (or sign) func- 
tion of mathematics that gives the value ~ 1 for negative arguments, +1 for positive arguments, and 0 
for O argument; for example, 


x2-5 x2=3 x2+4 
~ 4 0) 1 


The monadic use of * signifies the exponential function, e* in common notation. Thus, * 0 yields 
1 and +1 yields 2. 718281828; if X has an assigned value x, then * X yields e*. The inverse of 
the exponential function is the natural logarithm function, In x, which in APL is denoted by the 
monadic use of ® (circle star). Thus, ®1 is 0 and for any real number X the expression ®@ * X yields 
X. The dyadic use of ® signifies the logarithm to a base specified by the left argument. Thus, 2@8 is 
3 and 8@2 is 0. 3333333333. 

Absolute value or magnitude is a basic mathematical function, which in APL is symbolized by the 
monadic use of the stile | or vertical bar as follows: 


10 13-5 15-3 
0 2 2 
For example, on a coordinate line, the distance between points with coordinates X1 and X 2 is given 
by |X1-X2. 


APL has special symbols for many functions; a quick reference table for these symbols is inside 
the cover. 


1.9 Functions With Vector Arguments 


A numeric vector is a list or ordered set of numbers. If V-2 0.3 ~ 2 (note the spaces), then V is 
a vector with three elements or components — namely, the scalars 2, 0.3, and ~2. A great strength 
of APL is that many functions that take scalars as arguments can also take vectors as arguments; the 
function is applied elementwise and the result is a vector. Such functions are called scalar functions. 
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Examples are 


A+O0 2 4 B+5 “2 1 

A B A+B 
02 4 5 “2 1 5 0 5 

AxB A-=B A+B 
0-4 4 0-1 4 00.25 4 

-B +B |B 
“5 2 “1 0.2 0.5 1 5 2 1 


If one argument of a dyadic function is a scalar and one is a vector, the scalar is treated as a vector of 
matching length to the given vector and with all elements equal. For example, 


A B 2+5 “1 2 
024 5 “2 1 714 

O+A 9 5 5StA 3xB 
9 / 9 5 7 9 15 “6 3 

2*A A*3 2=A 
1 4 16 0 8 64 0 1 0 


1.10 Examples: Some Uses of Vector Arithmetic 
Computations arising in many and varied settings can be efficiently handled with vector arithmetic. 


(a) If A, B, and C are position vectors for the vertices of a triangle in space of any dimension, then 
(A+B+C)=3 gives the position vector of the centroid of the triangle. For example, 


A B C 
6 0 0 02 1 012 


(A+B+C)=3 Compute centroid of triangle ABC. 
211 


(b) If 7 /ME is a vector each component of which is the time in hours for each of several cars to 
complete a 350-mile course, then SPEED+350+T/ME is a vector of the speeds (in miles per 
hour) over the course for the cars. Here is an example: 


TIME+3.825 3.887 3.606 3.791 3.711 
SPEED+350=T IME 
SPEED 

91.503 90.044 97.060 92.324 94.314 


(c) In an investigation of the impact of a fish species on lake ecologies, a biologist had need to calcu- 
late the areas of large numbers of (roughly) elliptical fish nests. (Recall that the area of an ellipse 
is 7 X A X B, where A and B are the semimajor and semiminor axes of the ellipse.) If the semi- 
axes measurements of the ellipses are stored as corresponding entries of two vectors labeled 
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SMAJOR and SM! NOR, then the expression 
AREA+3.14xSMAJORxSMINOR 


computes and stores the approximate areas of the nests. 


1.11 Shape, Reduction Operator 


Two operations often applied to lists of numbers are counting the elements in the list and adding the 
elements in the list. These and many other operations on lists are made easy with special functions 
and operators, two of which are introduced here. The shape function, denoted by monadic use of 
rho, p, when applied to a vector gives the length (number of elements) of the vector. Thus, with 
A+"2 ~1 0 4 7 shape yields 


oA 05 1 4 00 O 
5 3 2 


More precisely, if V is any vector, then 0 V is a single element vector, the sole entry being the length 
of V. 

The plus reduction of a vector, symbolized +/, gives the sum of the elements in the vector. The 
result of +/1 ~2 4 4 is exactly the same as the result of 1+” 2+4+4—namely, 7. Examples 
are 


+/2 5 9 A +/A 
16 1 °~2 4 4 7 

+/A+2 A=4 +/A=4 
15 0011 2 


Notice the expression + /A=4 counts the number of 4s in A. 
Two basic list processing computations are illustrated next; these are very simple to perform using 
APL. 


1.12. Examples: Average, Dot Product 


(a) Since +/ V is the sum of the elements in V and 0 V is the number of elements in V, then 
(+/V)=+pV gives the average of the elements in V. Thus, if V«-1 ~2 6 3, then 
(+/V)+ pV yields 2. Applying this formula for average to the fish nest problem [Sec- 
tion 1.10, Example (c)], gives (+/AREA )+pAREA as the average area of the fish nests. 


(b) The dot (or scalar) product of two vectors of matching length is useful in various applications. If 


U = (u,,u,,...,u,) and V = (v,,v.,...,¥,) are vectors, then U- V = u,v, + u,v, + +++ + U,V, 
gives the dot product of U and V. In APL, the dot product is simply +/U* V. For example, 
U+1 2 0 4 3 
Vre4 311 71 Products of corresponding entries. 
UxV Add the terms of Ux V. 
4604 "3 
+/UxV 


11 
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1.13 More on the Reduction Operator 


Any dyadic scalar function may be used with the reduction operator, /. Minus reduction, —/, is 
especially useful because it yields what in mathematics is called an alternating sum. For example, 
-/1 2 3 4in APL means 1-2-3-4, which is equivalent in APL to 1-(2-(3-4) ), which 
is equivalent in common notation to 1 — 2 + 3 — 4. Notice the alternating signs. 

If fis any dyadic scalar function and V is any vector with two or more elements, then f/ V pro- 
duces the same result as putting an f between successive pairs of elements in V. The result is a scalar; 
the vector is “reduced” to a scalar. Thus, x/2 2 3 is the same as 2x23, which yields 12 and 


-/2 2 3 */2 2 3 +/2 2 3 
3 256 3 


Notice that the reduction operator is different from any APL function in that a function has scalars 
or vectors (and, later, other arrays) as arguments, whereas the reduction operator has a function as its 
argument! APL operators are characterized by their use of functions as arguments. Operators generate 
new functions or modify the ways functions are used. 


1.14 Index Generator 


Generating a list of numbers with a prescribed pattern is involved in a great variety of problems. For 
example, to calculate the values of a function at every .2 of a unit on the interval from 1 to 4, the gen- 
eration of the numbers 1, 1.2, 1.4,...,3.8,4 is part of the problem. A structured list of numbers is 
used in representing the sum of the first 100 terms of the alternating series as follows 


] ] ] 
}--+—-—+-----—+ 
3 B) 7 


Such problems are readily handled with the index generator function, which is denoted by the 
monadic use of iota, 1. If N is any positive integer 1 N is the vector of all integers from 1 to N in 
natural order: 


i3 16 ~14+16 
12 3 123 45 6 0123 4 5 
2*16 (16)*2 3+.1%15 
248 16 32 64 149 16 25 36 3.13.2 3.33.4 3.5 


Of course, the index generator function can be used to generate long vectors. These long vectors 
are “wrapped” onto several lines for display; for example, 


175 

12345678 910111213 14 15 1617 18 19 20 21 22 23 24 
25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 
44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 
63 64 65 66 67 68 69 70 71 72 73 74 75 
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1.15 Examples: A Partial Sum, a Sequence for e 


The index generator function can be used to calculate the alternating sum of the reciprocals of the first 
100 odd integers mentioned above. Notice that ~1+2%*1100 gives the vector of the first 100 odd 
integers. Next take reciprocals with monadic +, and finally get the alternating sum with —/, giving 
the formula -/+~ 1+2*1100 for the desired sum. 

Consider the following sequence that converges to e, the base of the natural logarithm system: 


(OS) 


An expression for the first N terms of that sequence is (1++1N) *1N; for example, 


N+10 
(1++1N)*1N 
22.25 2.3704 2.4414 2.4883 2.5216 2.5465 2.5658 2.5812 2.5937 


1.16 Number Forms and Print Precision 


Your numerical entries and APL numerical responses are in decimal notation. For integers, the decimal 
point is omitted. Scaled form (exponential notation) may be used. For example, instead of writing 
.00000000205, you may write 2.05E7 9. In some cases, APL output will be in scaled form. 
Of course, you can control the form of the output; see Section 10.15 and Appendix B.5 for further de- 
tails. One choice of output control is the number of significant digits to be printed, and one of the ways 
to make that choice is through the value of the system variable print precision, UPP (pronounced 
“quad-P-P’’). Print precision has a default value already assigned when you sign on to APL, but you 
may change it to any positive integer within the limits of your APL system, typically from 1 to 17. An 
example session using LPP is as follows: 


A+5=3 
A 
1.66666666/7 
OPP Display the current value of OPP. 
10 
DOPP+3 Reassign OPP. 
A 
1.67 
OPP+15 The number of significant figures displayed 
A changes; the value of A does not change. 


1.6666666666666/7 


See Appendix B.4 for a list of system variables. 


1.17 Workspaces, System Commands 


When you sign on an APL system, a block of computer memory is set aside for your use; it is called 
your active workspace. Any variables you assign or functions (programs) you define will be stored in 
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this workspace. Such variables and functions remain available to you until you redefine or erase them, 
replace your active workspace, or end your work session without saving them. 

System commands are used for managing your workspaces. For example, if you wish to review 
the variable names you have in your active workspace, you enter the system command ) VARS and a 
list of those names is printed on the session log. Similarly, ) FNS causes a list of the names of the 
user-defined functions in your active workspace to be printed. All system commands have a right 
parenthesis as the initial character. 

Other system commands allow you to easily save your entire active workspace for use in subse- 
quent work sessions, retrieve previously saved workspaces, copy work from saved workspaces into 
your active workspace, and perform other management functions on your APL workspaces. Frequently 
used system commands are discussed in Section 3.8; all are treated in Appendix B. One more will be 
mentioned here. 


1.18 Exiting APL 


When you have completed a work session and after you have saved anything you might want for later 
reference, you terminate your work session with the system command ) OFF. Upon entering ) OFF, 
the APL system may print some summary information about the session, and you will be properly dis- 
connected from the APL system. 


Exercises 


1. Determine the APL evaluation of each expression; check your answers with a computer. 


(a) 3x4-4 (b) (3x4)-4 (c) 2+*1%*3 (d) (2+1)*3 
(e) 2+2=3 (f) 3=2+2 (g) 2*0 (h) O*2 
(i) A+B+3xA+2 (j) 2xN+4=Ne5 (k) -0 (l) “0 
(m) -~ 2 (n) x2 (0) +10 (p) *1 
(q) @1 (r) +@5 (S) 1~5+2 = (u) -*2 
2. Determine the APL evaluation of each expression; check your answers with a computer. 
(a) 3+-1 (b) 3-+1 (c) 3x-2 (d) 3-x2 
(e) 3x=3 (f) 3=*3 (g) -3x-2 (h) x3x-2 


(i) -3x-~3 (j) -3-«~3 (k) 3x+3+x3 () +3+3+=3 


3. Indicate whether each use of a function in Exercise 2 is monadic or dyadic. 
4. Determine the APL evaluation of each expression; check your answers with a computer. 


(a) 2 2+1 (b) 3+2 241 3 © 74417 (d) 4-17 
(e) (15)=5 (f) 15=5 (g) -10+10*16 (h) 0x16 
(i) 11 (j) -1 2 4 (k) -/1 2 4 () x1 2 4 
(m) x/1 2 4 (n) +1 2 4 (0) +/1 2 4 (p) */4 1 2 


5. LettAe1 3 23 1 00 3 3 8 3. Evaluate: (a) pA (b) ppA (c) +/A (d) A=3 
(ec) +/A=3 (f) +/A=0 (g) +/A=5. 

6. LetB<i113andU+1 010101 0101 O 1. Evaluate B x U and B* U; de- 
scribe in words the results of +/BxU and x/B+*U. 


10. 


11. 


12. 
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Observe the error messages produced in response to these entries: 


(a) 1+0 (b) =0 (c) 2 2=1 0 (d) 2(3+4) 
(e:) (2+3)4 (1 243 45 (0 0 0x0 0 (h) ~A+2 
(i) ~x2 (j) 172 (k) 11 4 () 1 2 3414 


In mathematics 0 + 0 is undefined and 0° has a value only in some contexts. Try these in APL: 
0=0 and 0+0. 


Write brief APL expressions that yield these vectors: 


(a) 11.2 1.4 +++ 3.6 3.8 4 
(b) 1.50 ~.5 +++ 710.5 “11 


Write brief APL expressions that yield the sum of the first 100 terms of each series: 
@l+ 5 +5tqte(b1-3+5-gt— Olt gtetat: 
Let V be any vector. Write brief APL expressions for the: 


(a) sum of the squares of the elements of V 

(b) sum of the absolute values of the elements of V 

(c) alternating sum of the elements of V 

(d) number of zero elements of V 

(e) number of positive elements of V (Hint: Use signum function) 
(f) sum of the positive elements of V 


Incorporate the dot product formula + / Ux V of Example 1.12 in an APL formula for the vector 
projection of U onto V. Find the vector projection of U«1 O 8 onto V+2 ~2 2 using the 
formula. 

Let a system of point masses m,,...,m, be located in the plane at (x,, y,),...,(%,,),). The total 
moment of the system about the y axis is > m;,x; and about the x axis is > m;y,;, where sums are 
taken from | to k. The x coordinate of the center of mass is (> m;x;) + > m, and the y coordinate 
is (2 m;y;) + > m;. With Mas the vector of masses, X as the vector of x coordinates, and Y as 
the vector of y coordinates, write APL formulas for the total moments and the coordinates of the 
center of mass. Use the formulas to find the center of mass of the system of point masses: 
m, = 1.55, m, = 0.75, m, = 0.4, m, = 2.15 located at the points (0,0), (3.8,0), (10, 2.2), 
(—2, 3.5). 


Fundamentals of Arrays 


APL does a wonderful job of handling arrays. In this chapter all the arrays will be numeric; see Chap- 
ter 7 for character arrays. The simplest arrays are scalars, vectors, and matrices. A scalar is a number, 
a vector is a list of numbers, and a matrix is a rectangular arrangement of numbers. Higher dimensional 
arrays are also available and will be considered in the exercises and in later chapters. The functions 
on vectors introduced in Chapter | are extended to matrices, and basic types of array construction and 
manipulation are considered. These tools are quite powerful. The first example, which uses the vector 
ideas from Chapter 1, gives a glimpse of how valuable an “array view” of a computation can be when 
working with APL. 


2.1 Example: Polynomial Evaluation 


Suppose the polynomial P(t) = 3 + 2t — 5t* + t* is given and you are interested in evaluating P for 
any t value. Several APL expressions to do this are considered; in them, let T+ 10. Thus, a direct 
APL expression for P(10) is 


34+(2xT)+(75x7T+*#2)4+7+4 
9523 


Horner’s method for evaluating a polynomial requires fewer arithmetic operations; it is effected by 
factoring a t out of successive terms, and in common notation is 3 + t(2 + t(—5 + t(t))). In APL this 
can be expressed without parentheses: 


3+ Tx 2+ Tx 5+7xT 
9523 


A very different approach is to use vector arrays. Polynomial evaluation can be viewed as the 
sum of the elements of the vector that consists of the monomial terms. The vector of monomials is 


12 
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the elementwise product of the vector of coefficients of the polynomial with the vector of powers of T. 


T*O 12 4 These are the powers of T. 
1 10 100 10000 
32°75 1*x*T*O0 1 2 4 Multiply by the coefficients. 
3 20 ~500 10000 This is the vector of monomial terms. 


+/3 2 ~5 1xT+#O0 1 2 4 Add the terms. 
9523 


Putting in a zero coefficient for the t* term gives 


+/3 2 ~5 0 1xT+*0 12 3 4 
9523 


The index generator function will shorten this expression in a way that will also help to generalize it. 
Recall that ~1+15 isQO 1 2 3 4. Therefore, P(10) can be calculated by 


+/3 2 ~5 0 1x7T* 1415 
9523 


Now if T+” 3, then P(—3) can be evaluated by the same expression: 


+/3 2 ~5 0 1xT*°1415 
33 


In Chapter 3 this method will be incorporated into a function for polynomial evaluation. In Section 2.6 
an expression that allows a polynomial to be evaluated at several T values at once is considered. 


2.2 Elementwise Arithmetic 


Consider the matrices A and B; inputting matrices is treated below. Scalar functions apply elementwise 
to matrices as they did to vectors; for example, 


A B A+B 
12 3 1 2 0 24 3 
45 6 21 0 6 4 6 
A+B AxB A=B 
1 4 1 1 4 0 11 £0 
16 0.2 1 8 ~5 0O 00 0 
-B xB xA 
“1 "2 0 1 1 0 11 =«7 
“2 1 0 1 "1 0 11 =«7 


Notice that A xB gives the elementwise product of A and B but not the matrix product, which is con- 
sidered in Chapter 4. If one of the arguments is a scalar, then it is paired with each element of the other 
argument; for example, 


3xB At2 60+A 
6 0O 1 4 9 60 30 20 
~3 O 16 25 36 15 12 10 
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2.3 Reshape: Defining Arrays 


Matrices can be constructed using the dyadic reshape function signified by 0: 


Ar2 390123 45 6 Form and store the matrix A. 
B+2 391 202 71 0 Form and store the matrix B. 
A 

1 2 8 

4 5 6 
B 

1 2 0 

27-1 0 


The left argument of the reshape function in both of these cases is the vector 2 3; the 2 gives the 
number of rows and the 3 gives the number of columns. The number of elements given on the right 
side of 9 need not match the number of elements in the array. Extra elements will be ignored, or ele- 
ments will be reused cyclically if needed to fill out the array. The first row is filled first, then the sec- 
ond row, and so on until the matrix is complete. Examples follow: 


2 501 2 3 22912345 6 7 
2 1 2 
1 3.4 


Vectors can also be constructed using the reshape function; in this case the left argument of p is 
the length of the vector being formed. For example, 


501 594 2 501 234567 
11141 ~«441 42424 123 4 5 


2.4 Reduction 


In Chapter 1 reduction was used with vectors; forexample +/1 4 5 is 1+4+5, which is 10. Re- 
ductions such as +/ or —/ also may take matrices as arguments. The result is a vector; each element 
of the vector is formed by “reducing” a row of the matrix. For example, 


B +/B -/B 
123 4 10 3 4 “2 ~1 OQ 
011 1 
2101 


It is also possible to take a sum, product, or an alternating sum along the columns of a matrix 
instead of the rows. The symbol ~ is used to indicate that choice. With the same B you get 


+4B x¢B -4B 
34 4 6 0204 3224 


An example that uses reduction on matrices will be considered after a discussion of outer products. 
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2.5 Outer Product 


The outer product operator, denoted by ° . and read “jot-dot”, is used for generating arrays with 
“structure”. If U and V are vectors and f is a dyadic scalar function, then Ue .fV is a matrix whose 
entry in the ith row and jth column is formed by applying f to the ith entry of U and the jth entry of V. 
For example, a times table can be produced by 


123 4°e°.x% 123 45 6 


1 2 3 4 5 6 
2 4 6 8 10 12 
3 6 912 15 18 
4 812 16 20 24 


Other tables are constructed similarly: 


123 °.+ 1293 4 5 123 °.* 123 4 5 
23 45 6 1 1 #71 ~=41 1 
345 6 7 2 4 8 16 32 
4567 8 3 9 27 81 243 

23 0°:.x 122 “102 ¢.* O01 2 3 
2 4 4 1°71 #171 
3 6 6 1 0 O O 
0 0 0 1 2 4 8 


In general, the outer product A° .fB, where A and B are arrays, will be an array whose entries 
are formed by applying f with an element from A and an element from B in all possible pairs. Exam- 
ples with a matrix argument are considered in the exercises. 


2.6 Example: Evaluation of Polynomials at Several Points 


Consider evaluating the polynomial P(t) = 3 + 2t — 5t? + t* for several values of f, say t = 1,3, 10. 
Let P+“3 2 ~5 O 1 be the vector of polynomial coefficients including a 0 for the t* term. You 
saw that +/Px T*~ 1+15 would yield the value of the polynomial for a single value T; this expres- 
sion, however, makes no sense if 7 is the vector 1 3 10. Powers of each of the T values of interest 
are required. The outer product makes the appropriate “power table”. For example, 


T+1 3 10 
Te .* 1415 Get a power table. 
1 1 1 1 1 
1 3 9 27 81 
1 10 100 1000 10000 
Get multiple copies of the 
3 50P polynomial coefficients. 
3 2°75 0 1 
3 2°75 0 1 
3 2°75 0 1 
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(3 50P)xTe.*°14+15 Multiply elementwise to get “terms”. 
3 2 ~§ 0 1 
3 6 ~45 0 81 
3 20 ~500 0 10000 


+/(3 59P)xTo.* 1415 Add along the rows. 
1 45 9523 


T+3 5 10 “2 O 
+/(5 50P)xTo.* +15 
45 513 9523 3 3 


Notice that any number of T values could have been used. In Section 4.7 the matrix product is 
used in an expression for the evaluation of a polynomial at several points, which avoids the reshape of 
P required here. Finally, in Section 9.14 polynomial evaluation is accomplished with the APL primi- 
tive function base value. 


2.7 Catenation 


The APL function catenate, designated with a comma, is used to attach arrays together. It can be used 
to attach a scalar to a scalar, a scalar to a vector, and a vector to a vector. The result in each of these 
uses 1S a vector: 


1 2,13 1,2,3 4,5 6 1,-4,5 
1212 3 123 45 6 1 ~4 "5 


Catenation may be used with reshape to construct a matrix from vectors. Given vectors U, V, W 
each with five entries, the matrix M having those vectors as rows can be formed by 


U 
123 4 5 M-3 59U,V,W 
V M 
22222 123 4 5 
W 22222 
653 1 1 653 1 1 


2.8 Catenation of Matrices 


Matrices can also be catenated. With matrices you need to indicate whether the matrices are to be 
attached side by side or one above the other. The comma in the expression A , B indicates the matrices 
A and B are to be attached side by side. A comma followed by a 1 in square brackets as in B ,[(1]C 
indicates the matrices are to be attached B above C. The [1] indicates attachment along the “first 
axis”. Alternately, a comma overstruck with a minus sign as in A> B may be used on many systems to 
indicate catenation along the first axis, and A , [2 ]B may be used to indicate catenation along the 
second axis. See the exercises for an additional discussion of selecting the axis of application of a func- 
tion. Examples follow: 
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A B C 
1 2 3 1 0 1 2 
45 6 0 1 7 5 
789 0 0 
A,B A,3 B,(11C 
123 1 0 12 3 3 1 0 
45601 45 6 3 0 1 
7890 0 78 9 8 0 0 
1 2 
7 5 
A,(2]B A,(1]3 B-C 
123 1 0 12 3 1 0 
45601 45 6 0 1 
7890 0 789 0 0 
3 3 3 1 2 
7 5 


Notice that in A , 3 the scalar 3 was automatically extended to be a 3-by-1 matrix so that 
the catenation made sense. Catenation requires matching lengths of the edges along which attachment 
occurs. For example, A , C results in an error message. 


2.9 Example: Forming a Blockwise Diagonal Matrix 


Catenation is convenient for constructing matrices with certain types of structure. In order to produce 
the matrix 


these intermediate matrices A, B and Z may be formed: 
Ar2 2014 


B+2 201 0 0 
Z+2 200 


> i) 
oOo © 


A,Z),(112Z,B 


( 
0 0 
0 0 
1 0 
0 1 


oOoOW 
oof PM 
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2.10 Catenation of Matrices with Vectors 


It is often convenient to catenate a vector to a matrix, as in augmenting a table with a new row or col- 
umn of data. This is always possible by first reshaping the vector into a matrix and using catenation as 
previously discussed. Most modern versions of APL allow a vector to be catenated directly to a matrix, 
thereby simplifying many array constructions. 

For a vector to be catenated as a column to a matrix, the length of the vector must match the num- 
ber of rows in the matrix. It is similar for catenation of a vector as a row above or below a matrix. Here 
A,Uand A,[2]U indicate U is catenated beside A, and A, [1]U and A+U indicate U is to be 
attached beneath A. Consider an example with a matrix A and vectors U and V: 


A U V 
12 3 8 8 13 15 18 
45 6 

A,U A,C2]U U,A 
12 3 8 1 2 3 8 12 3 
45 6 8 45 6 8 4 5 6 

A,L1I]V A;V V,CIIA 
1 2 8 1 2 3 13 15 18 
4 5 6 4 5 6 1 2 3 
13 15 18 13 15 18 4 5 6 


With A and V as above, the expression A , V would result in an error message since the number of 
entries in V is not the same as the number of rows of A. 


2.11 Indexing 


Entries or blocks of entries of an array can be referenced by using “position” numbers or indices to 
specify entries. For vectors, you list the indices of the desired elements in their desired order inside 
square brackets. Consider these examples with the vector C: 


C Cl2] Cl1 2 3] 
“13 75 6 4 3 ~1 3 75 
Cl2 1 5] ClL4 4 1] Cl2 2p1 2 5 3) 
3.71 4 6 6 “1 ~1 3 
4 “5 


The last example above uses a matrix of indices. 
To “index a matrix,” you list the desired row and column indices, separated by a semicolon, in- 
side square brackets. The result is the array with the entries from the matrix arising from all combina- 
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tions of each row index with each column index, as follows: 


D 
1102 
1114 
121 3 
D(2;4] D(3;4 2 1] DC1 2;2 3] 
4 32 1 10 
1 1 


If an index is omitted, all the row indices or column indices are assumed. This gives a convenient 
notation for referring to rows and columns of a matrix. For example, 


D(1;] D(2 1;] DC ;4] 
110 2 111 4 2 4 3 
1102 
The result of each of DL 1; ] and DL ; 4] is a vector; in particular, D[ 1; ] is not a row matrix 


and D[ ; 4] is not a column matrix. 
A matrix can be modified by assignment using indexing as follows: 


D 

1102 

111 4 

121 3 
D(l2;2])+5 
D 

1102 

151 4 

121 3 
Dl1;]+1 2 3 4 
D 

123 4 

151 4 

121 3 
DL1 2;1 2]+2 295 6 7 8 
D 

5 6 3 4 

7814 

121 3 


2.12 Example: Elementary Row Operations on Matrices 


The reduction of a matrix to an echelon form by use of elementary row operations has several applica- 
tions (see an introductory linear algebra text). The row operations are: 
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I. Add a multiple of one row to another. 
Il. Multiply a row by a nonzero constant. 
III. Interchange two rows. 


These are easily accomplished. For example, 


A 
102 

111 4 

242 6 
Al2;]+Al2;J]+°1xAl1;] 
A 

1102 

0012 

242 6 
A[3;]+Al3;]+°2xA[1;] 
A 

1102 

0012 

0222 
Al2 3;]+Al[3 2;] 
A 

1102 

0222 

0012 
Al2;1+.5xAL2; ] 
A 

1102 

0111 

0012 
Al2;J+Al2;]-Al3;] 
A 

1 1 0 2 

0 1 071 

0 0 1 2 
Al1;J+Al1;J]-Al2;] 
A 

1 0 O 383 

0 1 071 

0 0 1 2 

2.13 Shape 


The first row times 1 is added to 
the second row. 


The first row times ~ 2 is added to 


the third row. 


Rows 2 and 3 are interchanged. 


Multiply the second row by . 5. 


A is in reduced echelon form. 


Recall that the length of a vector V is given by 0 V. In general the shape of an array can be determined 
using the monadic shape function denoted by 0; for example, 
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A B 
1102 1273 2 1 
111 4 
121 3 

oA 0B 
3.4 5 

+/A BC1] 
477 1 

o+/A 0B[1] 
3 (The result is ‘““empty”’.) 

opAL2 3;1 2 3] eBl2 3] 
2 3 2 


Notice that Aand AC2 3;1 2 3) are matrices and their shape has two components. The ex- 
pressions +/A and B and B[2 3] represent vectors, so their shapes each have one component. 
B11] is a scalar, so its shape is the empty vector. In general, the shape of an array is the vector 
whose elements give the upper limits on the indices of the array. The array A has shape 3 4, which 
means its first index ranges from 1 to 3 and its second index ranges from 1 to 4. You can also say the 
length of the first axis of A is 3 and the length of the second axis of A is 4. 

The shape of the shape of an array as in p pA is the number of indices; this is called the rank or 
dimension of the array. For the same A and B above, you have 


oA 0B oBL1] 
3 4 5 (Empty.) 

ppA poB o0pB[1] 
2 1 0 


The dimension of a matrix is 2; the dimension of a vector is 1; the dimension of a scalar is 0. 
Consider the differences among a column matrix, a row matrix, and a vector: 


Ac3 1903 5 7 B+1 3093 5 7 C+3 5 7 
A B C 
3 3.5 7 3.5 7 
5 
7 
oA 0B oC 
3 61 1 3 3 
ppA ppB ppC 
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The arrays B and C appear to be the same when they are displayed; their shapes and dimensions, how- 
ever, are different. The shape of an array is not always explicitly declared; when using APL you can 
make subtle errors by incorrectly assuming that an array has a shape different from what it actually 
has. Check the shape and the dimension of APL objects when errors occur. 


2.14 Empty Arrays 


In the discussion of shape it was observed that scalars are arrays with “empty” shape and dimension 0. 
The shape of a scalar, although empty, is a legitimate APL array that may itself be manipulated. Here are 
two more examples of empty arrays; they are created by reshape and index generator with 0 argument: 


205 105 005 
5 5 5 (Empty.) 


12 1 10 
1 2 1 (Empty. ) 


Notice the appropriateness of the result of 0p 5 in the light of the results for the diminishing arguments; 
similarly for 10. This is illustrative of the internal consistency of APL. 

The empty arrays considered so far are examples of an empty vector — that is, a vector with zero 
elements. Notice below that 9 pA is 1, indicating that A really is a one-dimensional array — namely, a 
vector. These empty vectors can be manipulated as vectors. Sometimes this results in an empty vector 
and sometimes not; for example, 


A+po3 B+0p5 C+i0 

oA 0B oC 
0 0 0 

ppA poB ppc 
1 

1 1 

A,2 3 4 At+5 A,5 

23 4 (Empty.) 5 


Matrices may also be empty in the sense that one or both of the axes may have length 0; see Exer- 
cise 23. Empty arrays are useful for initializing arrays to be constructed iteratively. 


Exercises 


1. What are the results of the following expressions? 


(a) 2 391 2 6 383 (b) 2 391 2345 67 8 9 
(c) 501 2 3 (4) 501 2123 43 4 5 6 


2. Let A+2 30916 and B+2 3p1 2. Use APL to find the following: 


(a) A+B (b) A+B 
(c) A*2 (d) 3+B 


in 


oN 
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(e) A=B (f) B=2 
(g) 2+A 


Write APL expressions to form these matrices: 


(a) 123 4 (b) 12 3 1 (c) 1 1 (d) 1 
123 4 2312 1 1 2 
123 4 31 2 3 1 1 3 


Give a brief expression for the sum of all the elements of a matrix A. Give another one. 
The axis of an array along which a reduction “operates” can be explicitly selected. Namely, 
f/ il indicates an f-reduction along the ith axis. Let A©2 3p 1 2. Find these arrays: 


(a) +/A (b) +7#A 


(c) +/L[1]A (d) +/[2]A 
(e) +AL1]A (ff) +7L2]A 


Write APL expressions using the outer product operator to form these matrices: 


@) 1 2 4 (© 2345 @12 4~— 8 
3 6 12 3456 15 25 125 
4 8 16 4567 13 9 27 


Give an expression for evaluating P(t) = 5 + 6f + ~4t* + ¢° at the points t = 1,3,5,7,9. 
What is the result of 


(a) 2,3,°2 (b) 2,-3,4 
(c) -2,3,-4 (d) 6p2,3 
(ec) 6p2 3 (f) 6,293 
(g) 6 2p3 


What is the result of 

(a) 6p0 (b) 1,690 (c) 6 691,600 

Let At2 3p1 andB+2 3p2 3 4. What is the result of 

(a) A,B (b) A,C1JB (c) A,C2IB (d) A-B. 
Let A+2 301 and B+2 22. Observe the result or the error message: 
(a) A,B (b) A,C1]B (c) A,C2)B (d) A-B. 


Use catenate to construct the matrices from obvious simpler matrices: 


(a2) 12 3 3 (b) 1111 2 3 
343 3 000 4 5 6 
33 1 2 111414 71 «1 
333 4 000000 
Let At2 304 2 5 0 1 2 and Ut’ 4 3 1. Predict the results of the following 
expressions: 
(a) A,C1]U (b) U,CIIA 
(c) A,2 3 (d) 3 7,A 


(e) A,3 (ff) A,U 
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14. Higher dimensional arrays are available in APL. Many of the functions and operators extend to 


15. 


16. 


17. 


18. 


19. 


such arrays. Consider the three-dimensional array A©2 3 40124. Determine what the fol- 
lowing expressions yield, and then use APL to check your expectations. How does APL display a 
three-dimensional array? 


(a) A (b) pA (c) ppA 

Indexing requires three indexes: 

(d) AC1;1;2] (e) Al1;2;1] (ff) Al2;1;1] 

(g) Al1;1;] (hy) AL1;;1] (i) AL;1;1] 

(j) AC1;;] (k) AL;1;5] i) AC; 51] 

Reduction can be along any of three axes; they can be explicitly selected via / [i]: 


(m) +/L1]A (n) +/L2]A (0) +/L3]A 
(p) +/A (q) +7A 


Notice that f/ indicates reduction along the last axis, and that f% indicates reduction along the 
first axis. Catenation can be along any of three axes: 


(r) A,£1J)3 (s) A,C2]3 (tt) A,C(3]3 
(u) A,3 (v) AvA 


Notice that catenation without axis specification is along the last axis, and catenation indicated by 
>; is along the first axis. 

Produce a three-dimensional array via outer products as follows: let B+ 14 and C+2 3916 
and A+ Bo .xC. Then redo (a)—(v) of Exercise 14. 

Let A*3 40112. Find the result of 


(a) AL3;2] (b) AL3;2 3] 
() AL1 2:3 4] @ AL2 1:3 4] 
(e) AL2;] (f) AL;2] 

(g) AL2 3;] (hy) AL3 25] 


Use elementary row operations to put the following matrices into reduced echelon form: 


(a) 172 2 5 (b) 274 10 3 #(@ 21 2 «5 
1 1 14 «4 0-4 171 0 1 14 2 2 
2 01 2 172 41 14 = «5 2-172 2 


Let A+2 301 0 3 4 2 1 and Bt2 2914. Observe the results or the error messages 
produced by 


(a) A,C1]B (b) A,[2]B (c) A,C3]B 


(d) A+B (e) =/A (f) +7A 

Suppose pA is 3 4 and pBis 4 4. What are the shapes of the following arrays? 
(a) A,C1]B (b) A*2 (c) AC1 2;] 

(d) B,B (e) AL1;] (ff) Bl;2 30914] 
(g) +/A (h) BL1;2] i) AL2 3;1 2] 


(j) Al2;2 2014] (k) AC1;]°.xAC;1] () +/B,B 


(Suggestion: Choose specific A and B and experiment.) 


22. 
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Let V be a vector and / be a matrix of indices for V. How is the shape of V[ / ] related to the 
shape of / and V? 


Predict the result of the following APL expressions. Some are empty. Check your work. Let 
B+Qp2 and C«10. 


(a) B,3 4 (b) B,3 


() B,C (d) B,oB 
(e) Bt+C (ff) B+0 
(g) B=C 


Predict the results of the following: 


(a) +/395 (b) +/205 (c) +/195 (@d) +/0p5— (e) +/10 

(f) x/3p5 (g) x/205 (h) */105 (i) x/0p5 (j) */pd 

(k) +/3p5 () +/205 (m) +/195 (n) +/005 (0) +/3+ 05 
Predict the result of the following APL expressions. Some are empty. Indicate the shape and 


dimension of the empty arrays. Check your work. Let E*3 Op 2 and F+O 401 and 
G+0O 0Op1. 


(a) E,2 (b) E,1 2 5 (c) E,E 
(dq) E,(1]8 (e) E,[2]8 (f) F,4 
(g) F=1 (h) G,1 (i) (G,1),01]3 


(j) G+0 


Elementary Function Definition 


User-defined APL functions will allow effective treatment of complicated problems. The interactive 
environment of APL will remain, but it will be enhanced by the defined functions. This chapter deals 
with functions with explicit arguments, explicit result, and at most a simple loop. It discusses editing 
of user-defined functions and relevant system commands and introduces random number generation. 
As examples of functions using simple loops, the chapter includes Newton’s method and the computa- 
tion of the Fibonacci numbers. 


3.1 Function Definition 


Each primitive APL function conforms to the mathematical notion of a function; each has one or two 
arguments and generates a uniquely determined value, which is called the result of the function. One 
or both of the arguments and the result of these functions are often arrays comprised of many compo- 
nents. Moreover, the result from any primitive function is passed on as an argument for the next func- 
tion to the left. These properties of the primitive functions are shared by the types of user-defined 
functions treated in this chapter. 

The del symbol, v, is used to signal APL to begin function definition mode. You begin the defini- 
tion of a function with a “header”, which includes the function name and variable names for the result 
of the function and its arguments. For example, to define a monadic function to be named FCN with 
result Y and argument X, you would type 


vY+FCN X 


Note that the argument for a monadic function is to the right of the function name. After you type the 
header, APL will prompt you for the first line of the function with [1] at the left margin: 


vVY+FCN X 
C1] 
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After you enter each line, APL prompts with the next higher line number. Several lines may be en- 
tered; another Vv is used to indicate that the function definition is complete. 

Here is a specific example. A monadic function named AVG is defined. It has a vector argument 
named V; it computes the average of the entries of V, and the function result is named 2: 


VZ+AVG V 
C1] Z+(+/V)+pV 
[2] Vv 


The formula for the computation forms the “body” of the function. The assignment “Z«” in the header 
and in line [1 ] is essential to the automatic passing of the result of the function to another function. 

After the closing V is entered APL resumes immediate execution mode, and the function AVG 
can be used simply by referring to it by name. A space is required between the function name and 
its argument: 


AVG 1 3 4 AVG 6 7 11 6 7 11 - AVG 6 7 11 
2.666666667 8 ~2 1° =3 


Notice that the result of AVG 6 7 11-—namely 8, could be used in the computation of 
differences in 6 7 11 - AVG 6 7 11. A function is said to “produce a result” or “return a 
result” when the result of its computation is available for further computation. The variables V and Z 
used in the definition of AVG are localized in the sense that their use within the function AVG will not 
conflict with values assigned to the variables V or Z in the context in which the function is called. 
Here AVG was called from the active workspace, and hence any values of V or Z in the active 
workspace would not have changed. Moreover, if V and 2 did not exist in the active workspace, they 
would still not exist after execution of AVG. 

Next is an example of a dyadic function. Note particularly the placement of the variable names for 
the arguments in the header. The function is named DOT; it has two vector arguments named U and 
V, and the result, which is the dot (scalar) product, is named Z: 


vZ+U DOT V 
C1] Z+t+/UxV 
[2] Vv 

10 DOT O 1 102 DOT 1 2 3 
0 7 

R-1 2 DOT 3 4 2x1 2 DOT 3 4 

22 
5+R 


16 


The variables U, V, and Z are local to the function DOT. In the fourth illustration the result 
of the DOT function was available as an argument of the x function. The result of the function was 
assignable to a variable. 

Observe the independence of the variables U and V in the workspace from localized variables with 
the same name in the function DOT: 


28 Chapter 3 Elementary Function Definition 


U+1 1 2 

V-2 3 1 

1 2 DOT 3 4 
11 

U 
112 

V 
23 1 

U DOT U 
6 

U 
112 

V 
23 1 


You may want to preview the material on editing and suspended functions in Sections 3.5 to 3.8 
before experimenting with defined functions. 


3.2 Example: A Function for Polynomial Evaluation 


The polynomial P(t) = a) + a,t + a,t* + -++ + a,t” can be represented by the vector (a),a,,@5,...,4,), 
which lists its coefficients including zero coefficients. Thus, P(t) = 3 — 4t + 2r° corresponds to 
3 ~4 0 2. A slight modification of the example of polynomial evaluation given in Section 2.1 
gives the defined function POL YVAL with the polynomial coefficients P as the left argument and the 
value T at which it is to be evaluated as the right argument. Note that ~1+19P gives the vector of 
powers to which T is to be raised: 


v Z+P POLYVAL T 
C1] Z+t+/PxT+ 1+1pP Vv The closing Vv may end a line. 


A few values of the polynomials 1 + 2¢ + t? and 3 — 4t + 2t° are computed: 


12 1 POLYVAL 1 12 1 POLYVAL ~1 
4 0 


3 —4 0 2 POLYVAL 3 3-4 0 2 POLYVAL 0 
45 3 


3.3 Example: Approximating Areas Using Right-Hand Endpoints 


A user-defined function may use the results of other user-defined functions that produce explicit results 
simply by referring to them by name within the body of the function. Here a function, RHEP, which 
approximates the area under a curve, will use another function, F , which gives the y coordinates of 
points on the curve. 

To approximate the area under the graph of a nonnegative function y = f(x) and above the interval 
[a, b], the areas of n rectangles associated with the curve are added together (Figure 3.1). Each rect- 
angle has width Ax = (b — a)/n. The height of the kth rectangle is f(x,), where x, = a + kAx; thus 
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Figure 3.1 Approximation of the area under y = x° and above [0, 1] using n = 8 rectangles based at the 
right-hand endpoint. 


the total area is approximated by 


A= S Glan = Ax flr,) 
k=I k=] 


A defined function, RHEP, that computes that approximation is given. RHEP has as arguments the 
number N of rectangles and the vector / NT that has the endpoints of the interval [a, b] as its compo- 
nents. The function F is defined separately and is chosen to be the cubing function in this example. 
Notice that on line 5 the function F is invoked simply by using its name. 


vy Z+N RHEP INT 
C1] A-+INT(1] 
[2] B+INTL2] 


[3] DX+(B-A)=N The width of each rectangle. 

[4] X+A+DXx iN Vector of subinterval right-hand endpoints. 

[5] Y+F X Function values at right-hand endpoints. 

C6] Z+DXx+/Y ¥v Add function values and multiply by width. 
v Z+F T 


C1] Z-+T+3 V 


Here are some sample approximations: 


10 RHEP 0O 1 100 RHEP 0O 1 
0.3025 0.255025 

1000 RHEP O 1 1000 RHEP 1 3 
0.25050025 20.026008 


The variables in the header ot the function, N, /NT, and Z are automatically localized, but the vari- 
ables A, B, DX, X, and Y are global in the sense that they will replace variables by those names in the 
context in which RHEP was called. Here RHEP is called from the active workspace, and hence the 
active workspace contains the values of A, B, DX, X, and Y defined in RHEP. For example, 


A+N+12 Assign values to global variables A and N. 
10 RHEP O 1 
0.3025 
A A in RHEP is global, hence A is changed. 
0 
N N in RHEP is local, hence N is preserved. 


12 
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The variables used by RHEP can be localized simply by listing them on the header line with 
semicolons separating distinct variables. All variables in the function RHEP 2 are localized: 


v Z+N RHEP2 INT:A;B;DX;X;Y 
C1] A+INT(1] 
[2] B-eINTC2] 
[3] DX+(B-A)=N 
[4] X+A+DXx iN 
[5] Y+F X 
[6] Z+DXx+/Y Vv 


A+N+12 

10 RHEP2 O 1 
0.3025 

A A in RHEP 2 is local, hence A is preserved. 
12 

N 
12 


3.4 Random Integers, Random Reals 


APL provides a simple way to generate random numbers. The question mark is used to denote the roll 
function. A random integer between 1 and N, where N is a positive integer is generated by ?N. Roll 
is a monadic scalar function. Examples are 


2100 2100 200 200 100 24010 
14 76 92 107 22 17 7 10 

276 6 6 6 21E17 1E°17x?1E17 
345 1 5.346163529E15 0.6711493841 


A random real number from [0, 1] can be computed by generating a random integer up to 1E 17 
and then multiplying by 1E~ 17. The magnitude 1&1 7 is used because it is on the order of the pre- 
cision of the real numbers on most APL systems. The function RANREAL produces N random real 
numbers between 0 and 1: 


v Z+RANREAL N 
C1] Ze1E°17x?Np1E17 v 


RANREAL 3 
0.6711493841 0.3834156508 0.4174859748 


3.5. Correcting a Function Line 


A previously defined function can be accessed for modification by typing Vv followed by the function 
name. The line number of the line to be modified can be typed in brackets, [N ], and the line can be 
retyped. Other lines can be changed or added, and definition mode is closed with another v. 
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Consider the function RAND, which is intended to select randomly N of the numbers 
0 1 2 3 4 5 with replacement. A first test of the function might yield the indicated result: 


vVZ+RAND WN 
C1] Z+?No5 ¥ 
RAND 30 
355314345 42%142445 225444145 23 4 3 


The testing produced no zeros. That suggests a problem with the definition. RAND can be cor- 
rected as follows: 


vRAND Use the function name, not the header. 
[2] C1] Get to line [1]. 
C1] Z+~1+?Np6 Replacement line is entered. 
[2] Vv Close definition mode. 


The function editing begins when you type vVRAND. APL responds with a prompt for a line 
at the end of the function, here [2]. Since you need to replace line [1], you type [1]; APL re- 
sponds with [1]. Then APL awaits the new line [1]. You enter the replacement for line [1], 
Z+~1+?Np6, and APL prompts for the next line—namely, [2]. The closing ¥ ends definition 
mode. Testing the corrected function yields 


RAND 30 
1120255053315 210503215 x38250 4 4 40 


3.6 Commands for Editing Functions 


Functions that have been defined can be edited easily. The command vFCT must be used first to 
begin (open) function definition mode in order to modify the function called FCT. Notice that the 
function name and not the header is used. All of the following commands except opening definition 
mode are made in response to an APL function definition mode prompt that is of the form [L], where 
L is a line number. Press (Return) to complete each command. The last command, a closing Vv, is used 
to end (close) definition mode and return to immediate execution mode. 

The commands for editing functions follow: 


vFCT Opens FCT for editing and prompts the user with a line number one higher than the 
last line in the function. 


CO] Displays the current definition of FCT and prompts the user for a line at the end of 
the function. 


XXX If the expression XXX is typed in response to the APL definition mode prompt [L], 
XXX replaces the content of line L. 


CN] APL prompts for replacement or the addition of line N, where N may be a decimal 
fraction — for example, [ 2 . 3 ] inserts this line in order between the appropriate lines. 


C0] APL prompts for replacement of the header. 
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CN] Xxx Modifies line N to be the expression XXX. 


(NUO] Displays line N for modification with arrow keys, backspace, and by inserting and 
deleting characters. 


(NUM ] Begins a two-pass editing mode. This is archaic but useful on hardcopy terminals that 
do not support some of the other commands. First, line N is displayed and the carriage 
is moved to column M on the next line. On this pass, under the displayed line the user 
may put a slash under characters to be deleted and/or put a digit for the number of 
spaces to be inserted before the position of the digit. On the next pass, the modified 
line is displayed and the user may type characters into the blank spaces. 


CaN] Delete line N. 


4 Close definition mode; lines are renumbered to consecutive integers starting with 1. 
Some of these commands may be combined into a single expression. Examples of this are 


vFCT(CU] Open FCT for editing; display the entire function; prompt for adding lines at the end 
of the function. 


vFCTCU1]v Display the function FCT and return to immediate execution mode. 


For example, in order to display the function RAND from Section 3.5 enter 


vRAND(Olv 
v RAND N 
C1] Ze 1+?Np6 


Vv 


This function display format is used in this book. 
Full screen editors are available on many modern APL systems. You will find it useful to investi- 
gate your system’s screen editing capabilities. 


3.7 Suspended Functions; Interrupts 


When a user-defined function halts in midcomputation due to an error, APL returns to immediate exe- 
cution mode in a modified state; namely, the function execution is suspended. Sometimes several func- 
tions have their execution suspended at the same time. Basically APL is ready for modifications of 
functions and variables and a resumption of the computation. In Appendix A the modified state caused 
by suspended functions will be discussed and used for debugging. Until then, since there is a small 
possibility that a suspended function would interfere with future work, it is best to clear the suspension 
of the function with the system command ) RESET immediately after the suspension occurs. The sus- 
pended functions may be listed with the state indicator command )S/. 

You may also interrupt computations, thereby producing function suspension. To signal an inter- 
ruption at the next line (weak interrupt), you strike the break or attention key once. For an interruption 
at the next function evaluation (strong interrupt), strike it twice. On some keyboards there is a separate 
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key marked attention (attn) or break (break). Often you must hold down the control key while you 
strike the break key (ctrl-break) in order to initiate an interrupt. Here is an example of a user interrupt 
and the use of ) RESET to clear the state indicator: 


APPROX+10000 RHEP 0O 1 Computation requested. 


(ctrl-break) (ctrl-break) Strong interrupt requested. 
INTERRUPT 
RHEP(4] X+A+DXx\N . 

A Place of interrupt shown. 

)S/ 
RHEP([4] +* Execution of RHEP is suspended. 

)RESET Clears the state indicator. 

)S/ 


No suspended functions remain. 


3.8 System Commands 


A few system commands helpful for managing workspaces are noted here. When you have defined 
several functions, it is convenient to save those definitions for later use. See Appendix B for a com- 
plete set of system commands and more examples. 


)SAVE nW _ Saves the active workspace with name W on account number n. The workspace in- 
cludes all variables and user-defined functions. Previous workspaces with the same 
name and account number are overwritten. The account number is optional. On 
some microcomputer systems, the account numbers |, 2, 3, and so on, correspond to 
disk drives A:, B:, C:, and so on, with various conventions. APL responds with 
some information such as the time of the save. 


)LOAD nW Loads the workspace with name W from account number n. See above remarks 
about account numbers. APL responds with some information such as the time the 
workspace was last saved. 


) CLEAR Loads a clear workspace. System variables are restored to their default values. All 
user-defined functions and variables are lost. 


) ERASE XXX _Erases functions and variables listed in XXX. 


) FNS Lists the defined functions in the active workspace. 

) VARS Lists the defined variables in the active workspace. 

)S/ State indicator; lists the suspended functions. 

) RESET All functions are reset to a state of nonsuspension. The state indicator is cleared. 


If you defined all the functions in this chapter so far, you could display the function names and save 
the workspace with the name CHAP 3 as shown. Then POL YVAL and RANREAL are erased, the ac- 
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tive workspace is cleared, and finally the workspace CHAP 3 is restored with the ) LOAD command: 


) FNS 
AVG DOT F POLYVAL RAND RANREAL RHEP 
)SAVE CHAP3 
CHAP3 SAVED 1988-07-12 15:34:25 
)ERASE RANREAL POLYVAL 
)FNS 
AVG DOT F RAND RHEP 
) CLEAR 
) FNS 
(No user-defined functions are in a clear workspace.) 
) LOAD CHAP3 
SAVED 1988-07-12 15:34:25 
) FNS 
AVG DOT F POLYVAL RAND RANREAL RHEP 


Note that the ) ERASE and ) CLEAR commands applied only in the active workspace; the saved 
workspace CHAP 3 was unaffected by those commands. 


3.9 Branching: Simple Loops 


The right pointing arrow, ~, is used monadically to branch to a given line. That is, +N indicates that 
the next line to be executed in a defined function is line number N; that expression is read “go to N” or 
“branch to N”’. Branching is used in limited ways throughout the text and is treated in greater detail in 
Chapter 10. Only simple loops are considered here. Often, good APL functions avoid loops that would 
be used in other programming languages. Until Chapter 10, it will be noted whenever a loop or branch- 
ing is appropriate in the solution of an exercise. 

The simple loops considered here will be of a particular form: Initial data is given and then a for- 
mula is iterated several times. When the loop has been repeated sufficiently many times, the execution 
of the function terminates. 

It is convenient to use the Jess than function of APL for these loops. Like equality, less than 
results in a 1 or a 0, depending on whether the inequality is true or not: 


2<3 3<2 2=2 
1 0 1 

2<2 3<7~2 5 2=1 
0 0 1 0 

4x2<3 4x3<3 4x5<3 
4 0 0 


Notice that 4*K <WN, for scalars K and N, results in either a 4 or a 0, depending on whether the 
inequality is true or not. 

Consider the simple case of computing the factorial function using a loop. The factorial function 
in common notation is n! = 1-2:3:+:::+(n — 1): n, with the convention that 0! = 1. At each 
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execution of line 5 of FAC, one of the multiplications indicated is effected. On line 3, the expression 
+4xK <WN causes a branch to line 4 or to 0. A branch to O causes the function to end execution and 
return the current value of Z. Line 6 causes a branch to line 3: 


v Z+FAC N;K 


C1] Z+1 The result if N=0. 
[2] K+0O Set iteration counter to 0. 
C3] +4xK<N Go to 4 if K<Nor go to 0 (exit) if K=N. 
[4] K+K+1 Increment the iteration counter. 
[5] Z+Z*K Multiply by the iteration count. 
[6] +3 Branch to 3. 
Vv 

FAC 0 FAC 1 FAC 2 
1 1 2 

FAC 4 FAC 6 FAC 10 
24 720 3628800 


Notice that the main lines 4 and 5 are repeated while K <N and that each time lines 4 and 5 are exe- 
cuted the value of Z is replaced by Z times the iteration count. Although this loop is instructive of 
branching, the factorial function can be computed easily via x /1N, and, moreover, there is a primi- 
tive APL function for factorial, which will be introduced in Section 6.5. 


3.10 Example: Newton’s Method 


Newton’s method is a technique for numerically approximating solutions to an equation f(x) = 0. It is 
based upon the idea that an estimate for a root determines a tangent line on the graph of y = f(x), and 
the next estimate can be taken to be the point where that tangent line intersects the x axis. Normally this 
procedure is iterated several times. When Newton’s method works, it tends to work very well. See a 
calculus or numerical analysis text for the details and a discussion of the limitations of Newton’s method. 

The computation used in Newton’s method gives a new estimate for a root x,,, in terms of the 
current estimate for the root x, (Figure 3.2). 

Given APL functions F and DF that compute f(x) and f’(x), Newton’s method can be iterated N 
times to approximate a solution to f(x) = 0 with the function | TERNEWT. Here V2 is approximated 


fla, 


fete FO) 


Figure 3.2 Newton’s method. 
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by finding a root of f(x) = x” — 2. The derivative is f’(x) = 2x. An initial guess of 2 is used in each 
of the approximations below: 


v Z*N ITERNEWT X;K 


C1] Z2+X Initial estimate. 
[2] K+0 Set iteration counter to 0. 
[3] *~4xK<N Test if N iterations are done. 
[4] Z+Z-(F 2Z)+DF Z Calculate a new estimate. 
[5] K+K+1 Increment the iteration counter. 
C6] +3 

Vv 


In order to define the function F, the name F needs to be available. If a previously defined func- 
tion F is in the active workspace, it should be erased with the command ) ERASE F: 


v ZF xX 
C1] Ze 2+X+2 
Vv 
v Z+DF xX 
C1] Z2+2xxX 
Vv 
0 /TERNEWT 2 1 ITERNEWT 2 2 ITERNEWT 2 
2 1.5 1.4166666666666665 
3 ITERNEWT 2 4 I|TERNEWT 2 5 |TERNEWT 2 


1.4142156862745097 1.4142135623746899 1.414213562373095 


3.11 Statement Separation, Diamond 


When several short APL statements are required, it is often convenient to put the statements on the 
same line. This is effected by placing a diamond % between the statements. The leftmost statement is 
executed first; for example, 


A+5 9 BrAt2 9 A+10 


A 
10 
B 
25 
C+?5p010 9 C 9 (+/C0C)=9C 
8 266 9 
6.2 


Although not every modern APL system supports the use of diamond, diamond will be used 
in this book. The effect of any statement involving diamond can, however, be achieved by writing 
separate lines. 
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3.12. Explicit Output 


Explicit output of results amidst computations can be accomplished using “quad output”. This is desig- 
nated by assigning the desired result to LJ. For example, 


O+3+4 3+L)+4 (0-5x6)+0+3x4 
7 4 12 
7 30 
42 
S++/U]+?5p10 A+ ((]-3+2)+0)+6 O+2Z+2+5 
5891 4 6 32 
S 9 Zz 
27 A 32 
15 


The third and fifth examples illustrate a way of explicitly observing the arguments of addition. Explicit 
output is helpful for debugging and observing intermediate results and gives a simple way for display- 
ing the result of an assignment. 

Next consider a modification of the Newton’s method function given in Section 3.10. This func- 
tion combines some of the lines into one using the diamond separator; on line 4, quad output is used to 
display the iteration count and each intermediate result. Assume that F and DF are the same as in 
Section 3.10. Notice that the result of the function is still displayed; it is the last item: 


v Z+N ITERNEWT2 X;K 
C1] Z+X 9 K+O0 
[2] *+3xK<N 
C3] Z2+Z-(F 2Z)+DF 2% K+K+1 
[4] O-K ,Z 
[5] +2 


5 ITERNEWT2 2 
.5 
.4166666666666665 
.4142156862745097 
.4142135623746899 
.414213562373095 
14213562373095 


=~ Oh WN — 
ha os os ss 


The branch statements had to be changed since the line numbers changed. Remember to check 
branch statements when lines are inserted or deleted from a function definition. Branching to lines 
by line label avoids this problem. Line labels are treated in Section 10.4. 
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3.13 Example: Fibonacci Numbers 


The Fibonacci numbers are 0 1 1 2 3 5 8 13 21 34.---, where terms are the sum of the preceding 
two terms. That is, the nth Fibonacci number F, is given by 


F,=0, F,=1, and F,,, =F, + F,-, forn = 1,2,3,... 


An APL function that computes the nth Fibonacci number uses a simple iteration. Because each 


term depends on two previous numbers, however, some extra work is required to keep track of the ad- 
ditional information. When line 4 is executed, the iteration counter is incremented and the sense of 
OLDZ and Z (current Z) is updated: 


Vv Z+FIB N;K;OLDZ;NEWZ 


C1] OLDZ+0 9 Z+1 9 Ke1 
C2] *3xK<N 
[3] NEWZ+Z+OLDZ 
[4] OLDZ+Z 9 Z+NEWZ 9 K+K+1 
[5] +2 
Vv 

FIB 1 FIB 2 FIB 3 
1 1 2 

FIB 10 FIB 25 FIB 100 
99 75025 3.542248E20 
Exercises 
1. Write an APL function that computes the sample standard deviation, s, of the entries of a vector. 


In standard mathematical notation, 


> (x; — x )? 
2 i=] 
so = 
n—- 1 
where x is the average of the entries of the vector (x,,x,,...,X,). 


Write an APL function POL YVAL 2 that evaluates a fixed polynomial at several points. The left 
argument should be a vector representing the polynomial and the right argument should be a vec- 
tor listing the points at which the polynomial is to be evaluated. See Section 2.6. 

The distance from the point (xo, yo, Zo) to the plane ax + by + cz + d = 01s given by 


wot < ot bye + cz + a 


dis 
Va +b? +e? 


Write an APL function D/ ST that takes the vector (a, b, c, d) as the left argument, call it E, and 
that takes (xy, Yo, 2.) aS the right argument, call it PO, and that results in the distance from the 
point to the plane. 

Write an APL function ANGLE TYPE that has as its arguments two vectors of the same shape 
and produces a 1, 0, or 1, depending on whether the angle between the vectors is obtuse, 


Ina 


10. 
11. 
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right, or acute, respectively. (Hint: Recall the relationship of the dot product to the angle and use 
the signum function. ) 

Consider Example 3.3, which approximated areas by right-hand endpoints. Using the same F as 
in that example, compare 


10 RHEP 0O 2, 100 RHEP 0O 2, 1000 RHEP 0O 2, 


100 RHEP 2 0, 1000 RHEP “2 0O, 1000 RHEP O “2. 


Write an APL function that simulates rolling N fair dice. 

Write an APL function that produces N “random” reals in the interval [a, b]. The function should 
have a vector giving the endpoints of the interval [a,b] as the components of its right argument 
and WN as its left argument. 

Experiment with error messages; try the following: 


(a) F100 (b) v Z+G W followed by vZ+A G W 
v Z+F W C1] Z+W*2 v_ and then by G-100 


Enter the defined functions PART 1 T !ON and LHEP. Notice that LHEP invokes a function F 
and the function PART / T/ON: 


v Z+N PARTITION AB 
C1] Z+AB(1]+(0,1N)*x(ABC2]-AB[1])+N 


Vv 


v Z+N LHEP AB 
C1] Z+((ABL2]-AB[1])+N)x+/((Np1),0)*F N PARTITION AB 


Vv 


(a) Describe the result of the functions PART / T!ON and LHEP in words. 

(b) Use the function PART / T 1 ON to rewrite the function RHEP given in Section 3.3 in the 
style of LHEP above. 

(c) Write an APL function that approximates integrals using the trapezoidal rule. 

(d) Write an APL function that approximates integrals using Simpson’s rule. 


Rewrite FAC given in Section 3.9 using the diamond separator. (Hint: A loop is appropriate.) 
Write an APL function THROOT, with arguments K and A, which approximates the Kth root 
of a given number A using 10 steps of Newton’s method with initial guess A. Write this function 
so that it uses polynomial evaluation directly rather than using defined functions F and DF. 
(Hint: A loop is appropriate. ) 

Use 10 iterations of Newton’s method with initial guesses of 2 and 8 to find approximate solutions 
to F(x) = 0, where F(x) = e* — x° — 3x — 5. Compute the value of F at the points you find. 
Write an APL function POL YDER that takes a vector giving the coefficients of a polynomial in 
increasing order as its argument and that results in the vector that represents the derivative of the 
polynomial. (Hint: The vector that is the same as a vector V except that the first entry has been 
dropped may be constructed by V[1+1~1+pV].) 

Write an APL function POL YHDER based on Exercise 13 and a simple loop to give the Nth 
derivative of a polynomial of degree at least N. 

Write an APL function that gives the Nth derivative of a polynomial of degree at least N without 
using a loop. 
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Describe in words the result of the following functions having a nonnegative integer argument N: 


(a) v Z+/ITER1 N;K (b) v Z2+ITER2 N;K 
C1] Z-0 9 K+0 C1] Z+O0 9 K+0 
[2] *3xK<N [2] *3xK<N 
C3] Z+Z+K 9 K+K+1 [3] K+eK+1 9 Z+Z+K 
[4] +2 [4] +2 
Vv Vv 
(c) vy Z+ITER3 N;K (d) vy Z+ITER4 N;K 
C1] Z+:10 9 K+0 C1] Z+:10 9 Kel 
[2] *3xK<N [2] *3xK<N 
C3] Z+Z,K 9 KeK+t1 C3] Z+Z,+/\K 9 K+K+1 
[4] +2 [4] +2 
Vv Vv 
(e) v Z+ITER5 N;:K (f) v Z+ITER6 N;K 
C1] Z+1 9 K+0 C1] Z+1 9 K+O 
[2] *3xK<N [2] *3xK<N 
C3] Z+Z*2 9 K+K+t1 C3] Z+Z*K 9 K+K+1 
[4] +2 [4] -2 
Vv Vv 


Write an APL function | TERSECANT that estimates roots of a function f(x) by the secant 
method that is based on 


Xn Xn-1 
f(x,) ~ F(x,-1) 


where x, and x,_, are estimates for the root. Let the left argument be N, the number of itera- 
tions, and the right argument be X, a two-element vector giving initial estimates x) and x). 
| TERSECANT should use a function F that defines f(x). (Hint: A loop is appropriate.) 

Use 15 iterations of the secant method with initial guesses 2 and 8 to estimate roots of e* — 
x’ — 3x — 5 = 0. What is the value of F at the point you find? See Exercise 17. 

Modify /! TERNEWT so that the result of the function is a matrix with the first column giving 
the iteration number and the second column giving the estimate for the root. (Hints: A loop is 
appropriate. Initialize the result as a 1-by-2 matrix and catenate a row at each iteration.) 

Write an APL function F / BS that results in a vector of all the Fibonacci numbers up to the Nth. 
Use the function to compute the first 50 Fibonacci numbers. (Hints: A loop is appropriate. Initial- 
ize the result as the vector 0 1 and catenate successive Fibonacci numbers at each iteration.) 


Xnt+1 —~ Xn — f(x,) 


Matrix Algebra 


This chapter introduces the APL functions for multiplying matrices, solving systems of equations, gen- 
erating least-squares solutions of systems, computing matrix inverses, and transposing matrices. It pre- 
sents examples of significant mathematical uses. The chapter also introduces the generalized inner 
product and reviews the outer product. It uses these operators in the examples and exercises. 


4.1 Matrix Product 


Multiplication of matrices can be presented as an extension of the dot product of vectors. If the number 
of columns of matrix A equals the number of rows of matrix B, the i, j entry of the matrix product of A 
and B is the dot product of the ith row of A with the jth column of B. This gives +/Ali; ]xBC;/] 
for the i, j entry of the matrix product. This dot product procedure is applied to all possible pairings of 
rows of A with columns of B to generate the entries of the matrix product. An operator exists in APL 
that “applies” the + and x functions to the rows of A and columns of B and yields the product matrix; 
it is called the inner product operator and is denoted by a dot or period placed between the functions it 
uses, asin +. *, 

The inner product operator is used in conjunction with many APL functions with surprisingly use- 
ful effects. Its first use was to indicate the conventional matrix product as A+. xB. Let 


A+2 2914, Br2 2972414, C+l1 203 6, and D+2 1p71 2. 
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Then 

A B A+.xB 
1 2 “1 0 1 4 
3 4 2 1 8 

C D C+. xA 
3 6 “1 21 30 

2 

B+.xD C+.xD pC+.xD 
1 9 1 1 
3 


Notice C+ . xD is a 1-by-1 matrix. 

The preceding examples are + . x inner products of matrices with matrices and the results are ma- 
trices. This inner product also applies to vectors with matrices and to vectors with vectors. As with the 
matrix product, there must be a compatible number of components. For example, let U«3 6 and 
V+~1 2; compare these vectors to the matrices C and D: 


U+.xA B+.xV U+.xV 
21 30 1 383 9 
opU+.xA o0B+.xV oU+.xV 
2 2 (Empty vector.) 


These shape determinations illustrate that the + . x product of a vector with a matrix yields a vector, 
and the +. * product of two vectors is a scalar—namely, the familiar scalar (dot) product of vector 
analysis. Thus U+ . x V and +/U* V have the same result on vectors. 

Inner products of matrices with scalars and of vectors with scalars are defined; the scalar is ex- 
tended to a vector of conforming length. For example, if V+1 2 3 and At2 3016, then 
o+.x Vand 5+. A yield the same results as 5 5 5+.xVand5 5+. *A, respectively: 


5+.xV 5 5 +.xV 05+.xV 

30 30 (Empty vector.) 
5+.xA 5 5 +.xA o5+.xA 

25 35 45 25 35 45 3 


Examples of inner product functions f . g other than +. x are in the Exercises and Chapter 5. 


4.2 Example: Markov Processes 


(a) If T is the transition matrix of a Markov process (the columns of T sum to 1), consideration of 
matrix products of T with itself—that is, powers of T, arise naturally. Using +. * and assignment 
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repeatedly, the following expression computes and stores the 2nd, 4th, 8th, 16th, and 32nd powers of 
the matrix T: 


- 
0.5 0.4 0 
0.3 0.4 0.2 
0.2 0.2 0.8 

T32¢T16+.xT16+T8+.xT8+T4+.xT4¢T2+.xT2+T+. xT 

OPP +3 

T2 T16 T32 
0.37 0.36 0.08 0.222 0.222 0.222 0.222 0.222 0.222 
0.31 0.32 0.24 0.278 0.278 0.278 0.278 0.278 0.278 
0.32 0.32 0.68 0.5 0.5 0.5 0.5 0.5 0.5 


Note that all the entries of T2 are positive (thus 7 is regular) and that 716 and 732 agree 
when rounded to three significant figures. Of course, a function can be defined for calculating powers 
of a matrix, but the method used here shows that a simple calculator mode handling of matrix powers 
is possible. 

(b) As is known from the theory of Markov chains, the columns of high powers of T when 
viewed as vectors will be close to a steady-state vector for the process having transition matrix T. Let 
V be the vector first column of 732 and look at the difference of V and T+. x V: 


V-7T32(;1] 
V-T+.xV 
1.27E78 3.18E°9 ~1.59E78 


Clearly, T+. Vis close to V. 


4.3 Solving Linear Systems, Matrix Divide 


The pair of equations 
x+2y=3 
3x + By = 5 


is a system of linear algebraic equations. To solve linear algebraic systems with APL, it is convenient 
to view them in vector—matrix form. Thus, the system can be written as 


f albl- GE 


This system is of the form AX = B, where A is the coefficient matrix, X is the unknown vector (or col- 
umn matrix), and B is the right-hand side vector (or column matrix). Any system of m linear algebraic 
equations in 2 unknowns can be written as AX = B, where A is the m-by-n coefficient matrix of the 
system and X and B are n-component and m-component vectors or column matrices, respectively. Here 
square systems (m = n) are considered. In Section 4.8, systems with m > n are considered. 
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Once the matrix A (with independent columns) and the vector B are identified, the solution of the 
system (if it exists) is readily computed by using a built-in APL function called matrix divide, which is 
denoted by &] and read quad-divide or domino. For example, to solve the system above, 


A+2 290123 8 Store the coefficient matrix 


B+3 5 and right side vector. 
X+BEJA Compute and store the solution. 
X Display the solution. 


7 “2 
Thus (x, y) = (7, ~ 2) is the solution of the system. The solution procedure can be condensed to 


35H 22 p)12 3 8 
7-2 


4.4 Example: Some Solutions of Linear Systems 


3x -~y+ z= 71 
2x + z= 2 
x+y-3z= 5 


Ae3 3p 371120111 «73 Store coefficients. 


B+"1 2 5 Store right side. 
X+BEIA Solve. 
xX 
14 0 
B-A+.xxX Check the solution. 
0 0 0 


Since the residue B-A+ . xX is a 0 vector, (x, y, z) = (1, 4, 0) is indeed the solution of the system. 
Consider another right-hand side with the same coefficient matrix A: 


Be.2 1 .3 
X+BEIA 
xX 
0.3125 1.1125 0.375 
B-At+.xxX Check the solution. 


~1.110223024E°16 1.94289029F°16 4.996003611E°16 


Again the residue is 0, within machine precision; hence, X is the solution of the system. 

If the columns of A comprise a dependent set of vectors, then BEJA yields a domain error mes- 
sage. If the columns of A are independent but the system AX = B has no solution in the ordinary sense, 
BEJA yields the least-squares solution (see Section 4.8). 


4.5 Outer Product 4§ 


Systems having the same coefficient matrix but different right-hand side vectors can be solved 
simultaneously by forming the right-hand side vectors into a matrix and using domino as before. For 
example, 


is a vector—matrix form of five systems of equations, each having the same coefficient matrix as the 
system of the preceding example and with right-hand side vectors being the five columns of the matrix 
on the right. If A is the coefficient matrix and C is the 3-by-5 matrix on the right, then the solutions are 
given as the columns of CLA: 


CELIA C-A+.xCHA 
1 4 1.5 2.5 2 0000 0 
4 6 1.5 5.5 “4 0000 0 
0 1 "2 1 ~3 0000 0 


All the residues are 0. The first column of CEJA, namely 1 4 0, is the solution obtained above 
corresponding to the right-hand side vector ~ 1 2 5, which is the first column of C. 


4.5. Outer Product 


The outer product operator symbolized by ° . and used for generating arrays with elements in pre- 
scribed patterns was introduced in Section 2.5. An informal name for this operator is table builder; here 
it is used to make a times table, a power table, and a 4-by-4 identity matrix: 


V-1 23 4 
Vo.xV Vo .+«V Vo .=V 
12 3 4 1 1 #1 1 100 0 
24 6 8 2 4 8 16 01 0 0 
36 9 12 3 9 27 81 001 0 
48 12 16 4 16 64 256 000 1 


The outer product will be used to construct Vandermonde matrices in several examples. The 
Vandermonde matrix associated with a set of numbers is a matrix of nonnegative powers of the num- 
bers. For example, the Vandermonde matrix associated with the numbers ~2, ~ 1, 0, and 4 is 


M-"2 “1 0 4°.* 01 2 8 


M 
1°72 4 “8 
1 71 #1 71 
1 0 O OQ 
1 4 16 64 
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In general, if a list of numbers is stored as vector X, the Vandermonde matrix for those numbers 
is given by X° .* 1+10X. Such matrices appear in the interpolation examples below. 

At least one APL system has a generalized determinant function, which is denoted with the 
monadic use of — . x. For example, 


-.*xM 
240 


The nonzero determinant of M illustrates the important fact that the Vandermonde matrix for vectors 
with distinct entries is nonsingular. 


4.6 Example: Polynomial Interpolation 


Determine the quartic polynomial that passes through the five points given by the table 
t| 1/0] 1]2 3 
yl! o 1312191 60 


Write the polynomial as a + bt + ct? + dt’ + et* = y and find a, b, c, d, and e. Substituting the five 
t, y pairs in the quartic equation gives a system AX = B of five equations in five unknowns: 


a- b+ c- d+ e= 0 
a = 3 
at bt ct dt e= 2 
a+2b+4c+ 8d+ l6OUe= 9 
a+ 3b + 9c + 27d + 8le = 60 


The rows of the coefficient matrix A are the 0 through 4 powers of the t values and the components of 
B are the y coordinates. (Note that A is a Vandermonde matrix.) An outer product will be used to con- 
struct A, then BEJA will solve the system: 


A+Toc.* 01 2 3 4 Construct coefficient matrix. 
Be 0 3 2 9 60 Enter the right-hand side vector. 
BEIA 

3 1°3 0 1 


The desired quartic polynomial is 3 + t — 3t? + ¢*. 


4.7 Example: Polynomial Evaluation Revisited 


Polynomial evaluation was discussed in Chapter 2, leading to the formula +/ (T*~1+19P) xP, 
where P is the vector of coefficients, ~ 1+ pP is the degree of the polynomial, and T is the number 
at which the polynomial is to be evaluated. This formula can now be written using the +. x matrix 
product as (7T*~ 1+19P)+.%*P. This formula has the advantage that if the left argument of + . x 
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is replaced by a matrix, each row of the matrix will be dotted with P just as the single vector 
T*~ 1+19P was dotted with P. With the scalar T replaced by a vector of numbers at each of which 
the polynomial is to be evaluated, T° . *” 1+10P yields a matrix, each row of which is a vector of 
powers of one of the numbers in T. Then the values of the polynomial at each of the numbers in T are 
given by (T°.* 1+190P)+.*P. 

Evaluating P(t) = 3 + 2t — 5t? + t* at various t values yields 


P+3 27°50 1 Input the polynomial coefficients. 
T+"3 13 10 Input some arbitrary ¢ values. 
(To.* -1+15)+.*P Compute the polynomial values. 
33 1 45 9523 
T+110 Use t values | through 10. 
(To.*714+15)+.x*P Evaluate P for these t values. 
13 45 187 513 1131 2173 3795 6177 9523 
T+2 2014 Try a matrix of t values. 
(To.* > 14+15)+.x*P 
1 3 
45 187 


For frequent use of polynomial evaluation, it is efficient to define a function for using this formula 
when it is needed. Naming the function POL YVAL gives 


v Z+P POLYVAL T 
C1] Z+(Te.* 14+1pP)+.xP 


Vv 


To evaluate P(t) at the t values ~ 3, 1, 3, and 10, just enter 


P POLYVAL ~3 1 3 10 
33 1 45 9523 


Polynomial evaluation is treated again in Sections 9.8 and 9.14. 


4.8 Least-Squares Solutions of Linear Systems 


Many applications lead to linear systems that have more equations than unknowns and may not have 
solutions in the usual sense. For example, in an experiment to analyze the motion of a falling body, you 
are led to fitting a quadratic function to many data points. The classical solution of such overdetermined 
systems using matrix algebra is given in Section 4.12. In this section, the APL primitive that provides 
an expenditious solution of such systems is presented. 

Consider the two systems of four equations in three unknowns: 


x + 2y = | x + 2y = 5 
x + z= 4 x + z= 0 

y-3z= 4 y-3z= 3 
2x + y+ 5z= 10 2x + y+ 5z= 15 
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Both systems have the same coefficient matrix. Store the coefficient matrix and right-hand side vectors 
in A, B, and C: 


A B C 
0 14 ~4 10 ~5 0 3 15 


1 
1 
0 
2 
Apply matrix divide with the nonsquare matrix A to get least-squares solutions: 
BEIJA CELIA 

3° 1 1 3 7 1 1 

Clearly, a check is necessary to determine if (x, y, z) = (3, 1, 1) is a solution of either system. 


Check by substituting X«3 ~1 1 in the expressions B-A+. xX and C-A+. *X; these residues 
should be zero vectors if 3 ~1 1 is a solution: 


B-A+.xX C-A+.xX 
000 0 ~6 ~4 7 § 


Thus, (x, y, z) = (3, ~ 1, 1) is a solution of AX = B but is not a solution of AX = C. 

With the coefficient matrix A of the preceding example there are infinitely many right-hand side 
vectors for which the system AX = B has a solution and infinitely many other choices for which it has 
no solution. In all cases, the expression X« BBEJA generates the vector X for which A+. xX is the 
closest possible vector to B; that is, X is the vector for which the magnitude of B-A+ . * X is least. 
This magnitude is 0 when the system has a solution. Thus, in the preceding example X«3 ~1 = 1 is 
the vector for which A+ . xX is as close to C+" 5 O 3 15 as possible. For any other choice of 
X, C-A+. xX would have greater magnitude than the magnitude of the vector ~6 ~4 7 5. 

In linear algebra the vector A+ . x X is known as the least-squares approximation to B within the 
column space of A and also as the projection of B on the column space of A. For any linear system 
AX = B in which the columns of A are linearly independent, BLA yields the least-squares solution to 
the system; in particular, when the system has a solution in the usual sense, BEJA gives the solution. 


4.9 Example: Least-Squares Polynomial Curve Fitting 


Determine the best (in the least-squares sense) cubic polynomial fit for the data points 
t| O l 2 3 4 5 
yl Ot 21 .35 1 .45 1 .5 1 .55 


Find a, b, c, and d so that a + bt + ct? + dt? best fits the data. Substituting the six t values in this 
cubic expression and equating to the y values gives the following system AX = B of six equations: 


a = 0 
at b+ ct d= .2 
a+2b+ 8c+ 16d = .35 
a+ 3b+ 9c+ 27d = .45 
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a+ 4b+ l6c + 64d =.5 
a+ 5b + 25¢ + 125d = .55 


The coefficient matrix is a Vandermonde matrix and has independent columns. Although it is un- 
likely for this system to have a solution, BEJA will yield the coefficients of the least-squares approxi- 
mation: 


OPP +3 
T+0,15 
A+T°e.+*0 1 2 3 Construct coefficient matrix. 
B+O .2 .35 .45 .5 .55 
X+BEIA Compute least-squares solution. 
X 

~0.00159 0.242 ~0.0379 0.00231 


To three significant figures the least-squares cubic polynomial is —.00159 + .242t — .0379t7 + .00231¢°. 

Should you want the least-squares quadratic approximation, the only modification of the APL 
formulas in the preceding solution is to drop the 3 from the expression At T°? .*0 1 2 3. Simi- 
lar minor changes in the right argument of the ° . * function for constructing the coefficient matrix of 
the system would yield the coefficients of the least-squares polynomial with degree (up to 5) of 
your choice. 


4.10 Matrix Inverse 


Dyadic uses of quad-divide, E], were discussed in Sections 4.3 and 4.8; quad-divide can also be used 


monadically. If A is a nonsingular matrix, EJA yields the matrix inverse of A. For example, let 
A+3 301 5 4 “1 21 0 3 2, then 


A EIA A+.xbJA 
1 5 4 ~1 72 8 1 O 0 
“1 2 = 1 “2 "2 § 0 1 O 
0 3 2 3 3 7°77 0 O 1 


For a nonsingular matrix A, both A+. BJA and (JA )+.%A yield the identity matrix of the same 
size as A. Moreover, for a linear system AX = B with nonsingular coefficient matrix A, an alternate 
formula for the solution vector is X+ (HA) +. xB. 

If A is a nonsquare matrix with independent columns, HA yields a left inverse of A. If the 
columns of A are dependent, a domain error message results from HA. 


4.11 Matrix Transpose 


Many matrix algebra computations involve transposes of matrices. APL has a transpose function, de- 
noted by &, which interchanges rows and columns in the conventional way. For example, 


A RA Q&A 
1 2 3 1 1 2 3 
45 6 2 45 6 
3 


on 
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4.12 Example: A Formula Using Transpose 


If the columns of a coefficient matrix A are linearly independent, a formula for the least-squares solu- 
tion of the linear algebraic system AX = B is X = (A‘A) ~'A'B, where A’ signifies the transpose of A. 
This formula translates directly to the APL expression X+ (H](QA)+.*xA)+.x(QA)+. xB, 
which is a “program” for computing X, given A and B. Of course, the dyadic use of domino, 
X+BBEJA, is an easier, more efficient way to compute the least-squares solution using APL. 


4.13 Example: Gram—Schmidt Orthogonalization 


The Gram—Schmidt process is used to replace a set of linearly independent vectors by a set of ortho- 
normal vectors spanning the same space. Two defined functions will make application of the process 
more transparent: 


v ZeUNIT V 
C1] Z2eVi(V+t+.xV)*.5 Divide V by its length; “unitize” V. 


Vv 


v Z+ U PROJ V 
C1] Z2+Vx(U+.xV)=V+.xV Projection of U onto V. 


Vv 


If V1, V2, and V3 are linearly independent n vectors, the Gram—Schmidt process produces ortho- 
normal vectors U1, U2, and U3 via 


U1+UNIT V1 
U2+UNIT V2-V2 PROJ U1 
U3+UNIT V3-(V3 PROJ U2)+V3 PROJ U1 


Look at the steps in generating U2, for example: first V2 is projected on U1, the result is then sub- 
tracted from V2 yielding the complementary projection, finally that result is normalized and assigned 
to U2. 

Applying these formulas with V1+*1 2 2 ~2 1,V2+*2 2 3 6 1, and 
V3-0 2 6 ~1 O produces 


U1 

0.267 0.535 0.535 ~0.535 0.267 
U2 

0.263 0.253 0.389 0.836 0.126 
U3 


~0.487 ~0.29 0.712 ~0.0281 ~0.414 


4.14 Example: Testing for Orthonormality 


The column vectors of a matrix A are an orthonormal set of vectors if and only if A’‘A is an identity 
matrix. The set of vectors U1, U2, and U3 generated by the Gram—Schmidt process in Example 4. 13 
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will be tested by this criterion. Suppose U1, U2, and U3 are already in the active workspace: 


Ar&3 59U1,U2,U3 Form matrix with U’s as columns. 
(QA)+.xA Apply the test. 

1.00E0 2.78E°17 1.67E°16 

2.78E°17 1.00E0 2.98E°17 


1.67E°16 2.78E°17 =1.00E0 


Within computer capability this is a 3-by-3 identity matrix, thereby confirming the orthonormality of 
the set of U’s. Observe that in forming A it was convenient first to make a matrix having the U’s as 
row vectors and then to transpose that to get A. 


4.15 The Power Method 


Eigenvalues and eigenvectors play an important role in analyzing the behavior of processes described 
with matrices. An eigenvalue of a square matrix A is a scalar such that AU = AU for some nonzero 
vector U. Such a vector U is called an eigenvector of A associated with A. It is usually difficult to attack 
the problem of finding the eigenvalues of a matrix by directly computing the characteristic equation 
and locating its roots. This section provides an introduction to estimating eigenvectors and eigenvalues. 
The power method is a simple method for estimating an eigenvector associated with a dominant eigen- 
value; that is, an eigenvalue that is larger in magnitude than the other eigenvalues of the matrix. Other 
easy algorithms for finding eigenvalues and computing error bounds for those estimates are found in 
the exercises. 

The power method is a simple iteration beginning with an initial estimate X, for the eigenvector 
associated with the dominant eigenvalue. An estimate X, for the eigenvector is multiplied by the matrix 
A and the result is scaled to unit length: 


Yi4, = AX, 
Yea 
Xia) = 
[Weal 


At the kth iteration the vector computed is a unit vector in the A*X, direction. 

The power method works since when X, is written in terms of a basis of eigenvectors, the contri- 
bution to A*X, corresponding to the eigenvector associated with the dominant eigenvalue becomes the 
largest term. At each step the estimated eigenvector is scaled to unit length to prevent overflow, since 
the components of A“X, tend to get very large as k increases. 

Using the function UN / T from Section 4.13, the two main steps of the power method can be 
written as X* UNIT A+t+.xX, where X is the current estimate for the eigenvector. The function 
POWME TH below iterates these steps N times and results in a matrix. On line 1, the output variable Z 
is initialized to be a matrix with one row that is the unit vector in the direction of the initial estimate of 
the eigenvector. On line 3, the estimate of the eigenvector at the kth step is computed then catenated to 
the output variable Z. The right argument of POWME TH is an initial estimate of an eigenvector of A. 
Notice that on line 3 the function uses the global variable A, which is the matrix for which the eigen- 
vector associated with a dominant eigenvalue is being computed. In the example, ten iterations are 
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computed using as an initial guess the vector 1 1 1: 


vy Z+N POWWVETH X;:K 
C1] K-O0 9 2+(1,0X)pX<UNIT X 
[2] *3xK<N 
C3] Z+Z,C1]X<UNIT At+.xX 9 K+-K+1 


[4] +2 
Vv 

A 
611 
241 
012 

T+10 POWMETH 1 1 1 

7 
0.57735 0.57735 0.57735 
0.72429 0.63375 0.27161 
0.76541 0.62025 0.17156 
0.7819 0.6075 0.1399 
0.78951 0.60006 0.1288 
0.79318 0.59614 0.12446 
0.79497 0.59414 0.1226 
0.79584 0.59314 0.12175 
0.79627 0.59264 0.12135 
0.79649 0.59239 0.12115 
0.79659 0.59227 0.12106 


Notice that the estimates for the eigenvector appear to be converging. Some natural questions to 
ask are: How quickly is it converging? How important is the choice of the initial eigenvector? How do 
you get an estimate of the eigenvalue once the eigenvector has been estimated? You can refer to nu- 
merical analysis texts for a complete discussion of these questions. 

The question of how to estimate the eigenvalue once an eigenvector is estimated has a satisfying 
answer. First, notice that if A has eigenvector A associated with eigenvector U, then AU = AU so 
AU — NU is the 0 vector; thus, || AU — AU || = 0. When an estimated eigenvalue yz and eigenvector X 
have been computed, it is natural to look at the residue AX — 4X. The estimates are good if and only if 
the length of the residue || AX — 2X || is near zero. If only an estimate for the eigenvector is known, then 
the best estimate for the eigenvalue can be computed by the Rayleigh quotient given by the theorem: 


If A is a real matrix and X is a nonzero vector, then the estimate for eigenvalue « that minimizes the 
length of the residue ||AX — ,2X|| is given by the Rayleigh quotient 
_ X= (AX) 
X:X 


If X is a unit vector, then the denominator is 1. In that case the Rayleigh quotient can be ex- 
pressed by X+.xA+.%*X in APL. For the example considered above, the best estimate for eigen- 
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vector, X, is given by the last row of T. Next, the Rayleigh quotient M is computed and the residue 
RES is examined: 


0. 


X-+Tl11;] 
X 


.19659 0.59227 0.12106 


MeX+.xA+.xX 
M 


. 8950 


MxX 


.4925 4.0837 0.83471 


At+.xX 


.4929 4.0833 0.83439 


RES+(A+.xX)-MxX 
RES 


00035486 ~0.00041223 ~0.00031823 


Notice that RES suggests M and X are estimates that are good to about three significant figures. 


Exercises 


itn 


Use the function POL YVAL of Example 4.7 and the function PART! T 1 ON in Exercise 3.9 to 
write a brief expression that yields the values of 4 — t + 2t? — t° at points uniformly spaced 
one-tenth of a unit apart along the interval from ~ 1! to 2. 
(a) Find a steady-state vector (to three significant figures) for the transition matrix 
T+3 370 0 .1 .2 .7 .3 .8 .3 «6. 
(b) Not every transition matrix has a steady-state vector. Compare the even and odd powers of 
T+3 300 .25 0101 0 .75 O. 
Write a monadic function VANDERMONDE that generates the Vandermonde matrix corre- 
sponding to a given vector X. 
(a) Write the formula for U4 that would be next in the list of formulas for the Gram—Schmidt 
process given in Example 4.13. 
(b) Apply the Gram—Schmidt process to the set of four independent 5-vectors: 
V1+-O “106 71, V2+6 17 6 ~3,V3+4 7 0 5 O, 
V4+4 “3 “2 “2 5. 
(c) Check the orthonormality of your solution to part (b) using the test described in Example 4.14. 
Use the function ° . = to construct a 10-by-10 identity matrix. 
Solve this system by two methods: 


2x- yt z= 12 
Sx+ yt z= 12 
~ 11 


4x + 3y — 2z 


(a) Use J monadically to find the inverse of the coefficient matrix. 
(b) Use  dyadically. 
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Determine the cubic interpolating polynomial for the four points given by this table: 


y! 723 | 4] 72 1 13 


Find the (a) linear, (b) quadratic, (c) cubic, and (d) quartic least-square polynomial approxima- 
tions to these data points: 


t} O|1] 2] 3] 4 
yl ~4 101 72 | 368 | 1140 


For equal length vectors U and V, the inner product U+. x V gives the sum of the products of 

corresponding entries in the vectors. 

(a) Express in words what the value of U+ . =V tells about the vectors. 

(b) Experiment with other dyadic scalar functions f and g to form other inner products f.g. 
Using simple vectors, try U+.*V, Ux .*V, Ux .-YV, and so on. Also use scalars; for 
example, 5+.=Vand 5x .-V. 

(c) Let B+113 and U+13p1 0; describe in words the results of B+ .xU and Bx .+*U 
(Compare your answer to that of Exercise 1.6). 

(d) Let A+:1100 and V-100p0 1 O O 1; describe in words the results of A+. *V 
and Ax .*U. 

Determine the APL evaluation of each expression; check your answers with APL. Let A«-14 

and B+2 4018. 


(a) A (b) &A 
(c) &1 4pA (d) &84 190A 
(ec) B (f) QB 
(g) 8B (h) B,C1IA 


(i) &B,[1]A 


Generate two “random” matrices A and B using At ?3 2910 and B+?2 310. Dis- 
play A and B and compare 8A+.*B with (QB )+.*®&A. Also compare 8B+. xA with 
(QA)+. xQB. 

LetC+2 3 409124 and D+4 3 29124. Compute and display 


(a) C (b) &C 
(c) &&C (d) D 
(e) &D (f) QD 


(g) p&C (h) p&D 


Use POWME TH of Section 4.15 on the matrix A1 with initial estimate 1 1 1 for the eigen- 
vector. Compute ten iterations. 


Al 


G GW PM 
Qo ff 
mPOA 


(a) Give the last estimate for the eigenvector. 

(b) Give the best estimate for the eigenvalue. 

(c) Compute the residue. 

One disadvantage of the power method is that it only determines eigenvectors of dominant eigen- 
values. Suppose A~' exists and A has eigenvalue A associated with eigenvector U. It is easy to 
check that A~' has eigenvalue 1/A associated with the same vector U. Thus, if A ~' has a domi- 
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nant eigenvalue, the power method with suitable initial guess applied to A’ converges to an 
eigenvector associated with the dominant eigenvalue of A~', and the same vector is associated 
with the smallest magnitude eigenvalue of A. This algorithm 1s called the inverse power method. 
Use the inverse power method on the matrix A1 from Exercise 13 with initial estimate 1 1 1 
for the eigenvector. Compute ten iterations. (Hint: Use POWME TH with an appropriate choice 
of matrix.) 

(a) Give the last estimate for the eigenvector. 

(b) Give the best estimate for the smallest magnitude eigenvalue of A. 

(c) Compute the residue. 

(d) Repeat (a)—(c) with 50 iterations. 

One disadvantage of the power and inverse power methods is that they only determine eigen- 
vectors associated with smallest nonzero or largest magnitude eigenvalues. Consider the shifted 
inverse power method. Suppose a matrix A has eigenvalue A associated with eigenvector U 
and (A — al)"' exists, where / is an identity matrix and a is a scalar “shift.” It is easy to check 
that (A — al)‘ has an eigenvalue 1/(A — @) associated with the same vector U. Notice that 
1/(A — a) is large in magnitude if and only if \ — @ is small in magnitude. Thus, if (A — al)7’ 
has a dominant eigenvalue, the power method with suitable initial guess applied to (A — al)"' 
converges to an eigenvector associated with the dominant eigenvalue of (A — al)~', and the 
same vector is associated with the eigenvalue of A nearest to a. Use the shifted inverse power 
method with an initial estimate 1 1 1 and a shift of a = 3 to estimate the eigenvalue nearest 
to 3 for the matrix A1 from Exercise 13. Compute ten iterations. (Hint: Use POWWE TH with an 
appropriate choice of matrix.) 

(a) Give the last estimate for the eigenvector. 

(b) Give the best estimate for the eigenvalue nearest to 3. 

(c) Compute the residue. 

(d) Repeat (a)-(c) with a = —1. 

The Rayleigh quotient iteration is based upon the shifted inverse power method, with the shift 
updated at each iteration to be the estimated eigenvalue given by the Rayleigh quotient. Since each 
inverse matrix is used for only one step, it is more efficient to solve a system than to multiply an 
estimated eigenvector by the inverse of a matrix. Thus, the step of the shifted inverse power 
method Y,,, = (A — p,/) 'X, is replaced by the following: Find the solution Y,,, to the system 
(A — u,/)Y,,, = X,. The Rayleigh quotient iteration begins with an estimate for eigenvector X) 
and eigenvalue so. Then the estimated eigenvector and eigenvalue are updated as follows: 


Y,4, 18 the solution to (A — w,J)Y,4, = Xx. 
X,4; 1s the unit vector in the direction of Y,,.,. 
4,4, 1S computed by the Rayleigh Quotient on X,,.,. 


Use the Rayleigh quotient iteration with initial guess 1 1 1 for the eigenvector and initial esti- 
mate 3 for the eigenvalue for the matrix A1 from Exercise 13. Compute three iterations. 

(a) Give the last estimate for the eigenvector. 

(b) Give the best estimate for the eigenvalue. 

(c) Compute the residue. 

It is easy to test how good an estimate for an eigenvalue is when the matrix is symmetric. Let wu 
be an estimate for an eigenvalue of a symmetric matrix A associated with an estimated eigen- 
vector X of unit length. Let A denote an actual eigenvalue of A nearest to uw. The length of the 
residue gives an error bound on the estimate for the eigenvalue |A — y| = ||AX — pX|. 


A2 


, 
2 
3 


& O1 P 
NO & ® 


(continued ) 
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For the matrix A 2, estimate eigenvectors several ways. In each case use 1 1 1 as an initial 

guess for an eigenvector and give the following: the last estimate for the eigenvector, the best esti- 

mate for the eigenvalue, the residue, and a bound for the error in the estimate for the eigenvalue. 

(a) Use ten iterations of the power method. 

(b) Use ten iterations of the inverse power method. 

(c) Use ten iterations of the shifted inverse power method with a shift of a = 2. 

(d) Use five iterations of the Rayleigh quotient iteration with initial estimate for the eigenvalue 
of 2. 

Write a function GRAMSCH that applies the Gram—Schmidt process to the columns of a matrix 

with independent columns given as its right argument. The result should be the matrix with 

orthonormal columns generated by the Gram—Schmidt process. Test your function on the matrix 

with columns that are the vectors in Example 4.13. (Hints: A loop is appropriate. Use the fact 

that the projection of column K of a matrix A onto the column space of the preceding K-1 

columns is given by the expression AL ;1K-1]+.*xAD;KIHAL[;\K-11].) 

A simple form of the QR algorithm for diagonalizing a square matrix Ag is given by iterating 

the following: 


Q, is the orthogonal matrix produced by applying GRAMSCH to A,. 
An updated matrix A,,, = Q,A,Q, has the same eigenvalues as A,. 


Write a function to apply WN iterations of the QR algorithm to a nonsingular matrix. Apply 
the function with 5, 10, 15, and 20 iterations to the matrix Al in Exercise 13. (Hint: A loop 
is appropriate. ) 

Redo Exercise 19 with the matrix A2 from Exercise 17. 


Data Comparison and 
Logical Functions 


This chapter introduces a host of APL functions useful for solving a wide variety of problems as well 
as for building more complicated functions. These functions are used in what is traditionally called pro- 
gramming — more on that in Chapter 10. It also illustrates solution of some basic data manipulation 
problems. 

The functions introduced are the relationals or comparatives, the logicals, floor, ceiling, and mem- 
bership. Many of them are incorporated in generalized inner products introduced here. The chapter 
closes with a discussion of the system variable comparison tolerance. 


5.1 Relational Functions: Comparatives 


The APL relational functions, or comparatives, are denoted by the dyadic use of the conventional sym- 
bols <, 4, =, 2, >, and *. The relational functions test the relative values of expressions; they yield 
results of 1 if the indicated relation is true and 0 if it is false. These results can be used as arguments 
for other functions. For example, 


2>3 233 24#3 
0 1 1 

1+2>3 1+233 3-143 
1 2 2 


The relationals are scalar functions; thus, numeric arrays serve as arguments in the usual ways; for 
example, 


41 343 2 3 2=5 21 2 3 2<2 3 916 
1 1 0 0101 0 00 1 
11 1 


37 
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The relational functions handle many tabulating problems easily. For example, let V be a vector, 


V 
§2033196843228d9083d11+1 3 


3=V Locate 3s in V. 
00011000001 0001 00 0 1 

+/3=V Count 3s in V. 
5 

+/4>V Count entries smaller than 4. 
12 


One way to count the number of entries between 3 and 6 inclusive is to subtract the number of 
entries less than 3 from the number less than or equal to 6 as follows: 


(+/Vs56)-+/V<3 
8 


Using an outer product, counts on several different numbers can be made simultaneously: 


2°.=V Locations of 3s and 2s in V. 
00011000001 0001 00 0 41 
010000000001 000000 0 

+/3 2°.=V Counts of 3s and 2s in V. 
5 2 

+/(0,19)°.=V Counts of each of the digits in V. 
142511102 2 

+/(0,19)°.2V Counts of entries less than or 


15 7121314 151517 «19 equal 0,1,---,9, respectively. 


5.2 Example: Averages on Selected Scores 


Let the nonnegative entries of S contain the scores of seven students on eleven 10-point quizzes. A ~ 1 
entry indicates an excused absence from a quiz. The example is 
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Find the average quiz score for each student, not counting quizzes from which the student was ex- 
cused. Set LIPP «2; the required averages are then given by 


(+/SxS20)++/S20 
7.7 8.3 9.4 6.6 7 9.4 8.6 


5.3 Logical Functions 


You can accomplish calculations using the basic functions of mathematical logic with the APL func- 
tions not ~, and A, or V, nand &, and nor ¥. The domains of these functions are restricted to arrays 
of Os and 1s, and their results are also Os and 1s. Variables comprised of only Os and 1s are termed 
Boolean variables. 


The logical negation function, not, is monadic and reverses the logical parity of its argument; 
thus, 


~0 ~~0 ~0 0101 
1 0 1101 0 


The definitions of the dyadic logical functions are summarized by their truth tables as follows: 


and: A|0O 1 or: V{]0O 1 nand: 4/0 1 nor: ¥ | 0 1 
apo ofa" Th ora 
11:0 1 1/1] 1/10 1100 


Thus, 
1A1 1V0 11 
1 1 0 
The truth tables above can be generated using outer products as follows: 
0 1°.A0 1 O 1°.V0 1 
0 0 0 1 
0 1 1 1 


The tabulating capabilities illustrated in Section 5.2 can be extended with the use of the logical 
functions. Again, let V be the vector from the last section: 


V 
5203319°64843289°8111 8 


(2=V)V3=V Show locations of 2s and 3s in V. 
01011000001 1003400 0 1 


+/(2=V)V3=V Count the 2s and 3s in V. 


+/(3<V)AVS6 Count entries between 3 and 6 inclusive. 
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+/(V<3)V6<V Count entries less than 3 or greater than 6. 
11 


+/VxV>3 Sum entries greater than 3. 
49 


5.4 Example: Frequency Distribution 


To construct a frequency distribution of a data set, you will want to count the data points that lie within 
each of several specified intervals. For example, the number of digits of the vector V (from 
Section 5.1) that lie in each of the intervals [0, 3], (3, 6] and (6, 9] is given by 


+/(~1 3 6°.<V)A3 6 9° .2V 
12 3 4 


Observe that each of the expressions 0 3 6°.<Vand3 6 9° .2V generates a three-row matrix 
showing the locations of entries of V that satisfy the respective indicated relation. Then the logical and, 
A, of these matrices shows where both relations are satisfied; for example, the third row will yield a 1 
in each column that corresponds to the position of a 7, 8, or 9 in V. Finally, the row sums, +/, of 
this matrix give the desired counts. 


5.5 Generalized Inner Product: Vectors 


The APL formula + / Ux V for the ordinary inner (dot) product of vectors U and V of matching length 
was given in Section 1.12. This inner product is the sum of products of corresponding entries of U and 
V. That scheme for combining two functions is useful for functions other than + and *. For example, 
the sum of equals of corresponding entries, + / U=V, gives the number of positions in which U and V 
have the same entry. 

The APL inner product operator combines the effects of two functions in the manner shown in 
these examples; the operator is denoted by a dot or period placed between its function arguments, as in 
+. and +. =. In general if f and g are any scalar dyadic functions, the inner product function f . g 
when applied to equal length vectors U and V yields the f reduction of the vector resulting from apply- 
ing g to corresponding entries of U and V. Thus, for vectors U and V, the formulas Uf. gV and 
f/UgV yield exactly the same results. However, f . g inner product functions apply to arrays X and Y 
other than vectors, and for such arrays the notation f/ Xg Y might be meaningless or yield a result 
different from Xf. gY. 

Here are some inner product functions and their effects when applied to equal length vectors: 


U+.+V Sums V powers of entries of U. 


Ux .*«V Multiplies V powers of U entries; if V is Boolean, 
it selects entries of U and multiplies them. 


UV.=V Tests whether U and V agree in at least one position. 


UA.=V Tests whether U and V agree in every position. 
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UA.#V Tests whether U and V differ in every position. 
UA.>V Tests whether each entry of U is greater than the 
corresponding entry of V. 
There are many more such examples. 


Here are a few examples with specific vectors: 


U-8B 031925461 9 

VO 8 41259459 1 

U+.xV UV .=V U+.=V 
150 1 2 


5.6 Example: Weighted Average 


Weighted averages of sets of numbers have various uses. The weighted average of a list of numbers x,, 
X,°**,xX, with corresponding nonnegative weights w,,w,,°--+,w, iS defined as 


(x,w, + XW, + +++ + x,w,) + (w, + w, +++ + w,) 


If X is a vector of numbers and W is a vector of weights, the weighted average is given by the APL 
expression (X+.xW)++/W. For example; 


X*O 189 Wet 41 9 (X+.xW)=4+/W 
2 


5.7 Generalized Inner Product: General Arrays 


If A and B are matrices, Af . gB inner products are defined if the number of columns of A equals the 
number of rows of B. When that conformability condition is met, the result of Af . gB is a matrix with 
the ith row, jth column element being the f. g inner product of the ith row vector of A and the jth 
column vector of B; that is, Ali; ]f.gBC;j7 1. Thus, the inner product of matrices is formed from 
the inner products of row vectors of A with column vectors of B. In particular, the + . * inner product 
gives the conventional matrix product of A and B. For example, 


A B A+.xB 
171 3 2 1 3 12 
1 01 "1 6 5 1 
AA .=B A+.xA B+.xB 
00 1 “1 72 (yields error message) 
010 4 ~1 


Inner products of matrices with vectors are defined if the matrix and vector conform: If the length 
of vector U matches the number of rows of matrix A, then Uf .gA is defined. If the number of 
columns of matrix A matches the length of vector V, then Af. gV is defined. The result in each case 
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is a vector. Letting U+1 ~1 and V*«+1 2 © 2 and using the matrix B above gives 


U+.xB o0U+.xB 
3 12 3 


B+.xV oB+.xV 
5 4 2 


The shapes of U+ . *B and B+. * V being single numbers confirms that these are vectors. Note that 
B+. xV can be interpreted as the V linear combination (sum of multiples) of the column vectors of B. 
Compare the results of using row and column matrices in place of the vectors in these calculations: 


UMAT+1 2p0U UMAT+.xB 0 UMAT+.xB 
3 $12 1 3 
VMAT+«3 190V B+.xVMAT oB+.xVMAT 
5 2 1 
4 


The inner products of B with UMAT and VMAT yield matrices. 

The inner product A . = is especially handy. If the matrix A conforms with the vector U, then 
UA . =A yields a Boolean vector with a 1 indicating a column of A that matches U in every position, 
and, similarly, for row matches of A with V using AA. =V. 

Let the vectors U, V, and the 5-by-12 matrix A be as shown: 


U 
5 35 42 
V 
14241245213 «+1 
A 
1541641441393 5 5 1 
1323142é63 933 5 
45452645 56 5 1 
14241345 214 1 
4254213441 3 2 3 
UA.=A Find columns of A that match U. 
0100000000 1 0 
+/UA.=A Count of columns that match U. 
2 
AA .=V Find rows of A that match V. 
0000 0 
1100 1+.%xA Sum corresponding entries of 
61011896911 7 1110 9 rows 1, 2, and 5 of A. 
A+.x1201 0 Sum corresponding entries of 


23 12 24 14 17 the odd numbered columns of A. 
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Inner products of scalars with arbitrary arrays are defined; the scalar is automatically extended 
to a vector of conforming length. Thus, using the matrix A above and the vector W+1 2 3, the 
expressions 5f.gA and Wf.g5 aretreaedas5 5 5 5 5Sf.gAandWf.g5 5 5, respectively. 
For example, 


5A.2A W+.x5 
1111003101071 «4 30 


Note that the inner product 5A . 2A finds the columns of A with no entry larger than 5. 

Consider nonscalar arrays A and B of arbitrary dimension and dyadic scalar functions f and g. 
The inner product Af . gB is defined if the last axis of A has the same length as the first axis of B, 
and, then, the result has dimension 2 less than the sum of the dimensions of A and B. The shape of 
Af . gB is the shape of A less its last component catenated with the shape of B less its first component; 
for example, if A is a three-dimensional array of shape 3 2 4 and B is a matrix of shape 4 2, then 
Af .gB has dimension 3 and has shape 3 2 2. 


5.8 Example: Paths in Graphs 


A finite collection of vertices in a plane together with some edges joining pairs of distinct vertices is 
called a graph. In the three small graphs in Figure 5.1, each edge provides a path from one vertex to 
another. Also, an ordered set of n edges with successive pairs concurrent end to end is a path of length 
n. For example, in Figure 5.1(b), the succession of edges from vertex 1 to 2, then 2 to 4, and then 4 to 
3 is a path of length 3 from vertex 1 to 3. A graph with numbered vertices has an associated adjacency 
matrix; this is a Boolean matrix with a 1 in the (i, /) position if and only if there is an edge joining 
vertices i and j. 
The adjacency matrix of Figure 5.1(b) is 


> 

lI 
ooor-°o 
ore Oo + 
or oro 
-¥ Or KH OO 
Oe CO°9 


The adjacency matrix marks with a 1 the pairs of vertices having a path of length 1 joining them. This 
suggests a problem: From the adjacency matrix A of a graph having n numbered vertices, find the ma- 
trix that marks with a 1 the pairs of vertices having a path of length 2 joining them. 


X /\/% P28 


(a) (b) (c) 
Figure 5.1 Three small graphs. 
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For Figure 5.1(b), the matrix required is easily found directly from the graph to be 
0 1 


— — CC) 
a nn 
—-OosmrReo 


1 1 

1 1 

1 | 

0 1 1 0 
In general to have a path of length 2 from one vertex to another, say i to j, there must be a path of 

length | (an edge) from 7 to some intermediate vertex, say k, and a path of length 1 from k to j. If for 

any k = 1,2, +++, mn, both the (i, k) and (k, j) entries of A are 1s, then there is a path of length 2 and 

the (i, j) entry of the required matrix is a 1. For example, to use the matrix A of Figure 5.1(b) to test 

for a path of length 2 from vertex 3 to 4, determine whether any pairs of corresponding entries in 

row 3 and column 4 are both Is: 


row 3: 0 10 1 0 
column 4: 0 11 0 1 


In fact, the second entries in row 3 and column 4 are Is, and thus there is a path of length 2 from 
3 to 4 via vertex 2. The procedure then is to evaluate the logical or, V, of the logical ands, A, of corre- 
sponding entries in row i and column j of A for each i and j from | to n. Thus, the required matrix is 
given in APL as the inner product AV . AA. 

By extending this argument it can be shown that the Boolean matrix AV .AAV.AA has a 1 in 
the (i, 7) position if and only if there is a path of length 3 from vertex i to j, and similarly for longer 
paths. See Exercise 15. 


5.9 Floor, Ceiling 


If X is any real number, the floor of X, denoted | X, yields the largest integer that is not larger than 
X. This is also known as the greatest integer function. Thus, 


L2.3 L1.9 l2 “1.5 .4 ~.3 
2 1 2°20 1 
The formula | .5+X rounds X to the nearest integer, with numbers having fractional part . 5 
rounded to the next larger integer: 


L.5+2.3 L.5+1.9 L.5+2 “1.5 .4 ~.3 
2 2 2°10 0 


Paralleling the floor function is the ceiling function; [ X yields the smallest integer that is not 
smaller than X. Thus, 


[2.3 [1.9 [2 "1.5 .4 ~.3 
3 2 27-1 1 QO 


The formula [~ .5+X rounds X to the nearest integer, with numbers having fractional part of 
. 9 being rounded to the next smaller integer: 


[~.5+2.3 [~.5+1.9 f~.5+2 “1.5 .4 ~.3 
2 2 2°2 0 0 
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Floor and ceiling are monadic scalar functions; the argument of floor or ceiling may be any nu- 
meric array. For example, 


M LM L.5+M 


NO 
>) 
© 
NO 
>) 
NO PO 
— © 


5.10 Example: Rounding to a Decimal Position 


Rounding in any decimal position can be accomplished by temporarily making the position of interest 
the units position. To round X to hundredths, apply a rounding formula to 100*X, then move the 
decimal point back again: .01*L .5+100*X. An entire array of numbers may be rounded simul- 
taneously. For example, let Ve .034 ~1.0127 .0049 57.006 ~ .997 2, then 


L.5+100xV Round 100~ V to nearest integer. 
3 ~101 0 5701 ~100 200 


.0O1*xL.5+100xV Move decimal point back. 
0.03 ~1.01 0 57.01 “1 2 


Similarly, a way to round the entries of an array X to whole thousands is to use 


1000xL.5+.001xxX: 


V+123456 7499 7500 345 ~602 
1000xL.5+.001xV 
123000 7000 8000 0 ~ 1000 


APL provides a formatting function that can be used for rounding and other matters related to the 
form of data output. See Section 10.15 and Appendix B. 


5.11 Membership Function 


The membership function tests whether each element of its left argument is an element of its right argu- 
ment; the arguments may be any arrays. The function is denoted by epsilon, €. The result of AeB 
(read as “A belongs to B” or “A in B”) is a Boolean array having the shape of A with a 1 in each 
position where the corresponding entry of A is one of the entries of B. For example, 


3 6€6 1 8 6 1 8¢€3 6 (2 49:18)¢€3 6 
0 1 100 001 0 
0100 
3.3 7 4€16 3 3 7 4€3 2pi6 12 3€4 
1101 110 1 0 0 0 


Notice that the shape of the right argument is not relevant to the result of a membership test. 

If V is a vector of data, the membership function gives a quick, easy test of whether the vector 
contains specified entries. Moreover, the expression A / Ue V tests whether every element of vector U 
is in V; this can be interpreted as a test of set containment for the sets of distinct elements in vectors U 
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and V. To determine whether the collections of distinct elements in U and V are the same can be ac- 
complished simply with A/ (VeU) , Ue V. (Notice the use of catenation here.) 
Here are some membership function examples: 


(a) Find the sum of those numbers in vector U that are also in vector V. Solution: +/U*Ue V or, 
equivalently, U+.xUeV. 


(b) Find the sum of the numbers in vector U that are not in vector V. Solutions: 
(i) (+/U)-Ut+. xUeV, (ii) U+. x~Ue V. 


5.12 Comparison Tolerance 


If print precision, LIPP, is set to the maximum value for an APL system, the displayed value of 
3*1+3 is seen to be not 1 but very close to 1. Yet when APL tests equality in 1=3*1+3, the re- 
sult is (as seems reasonable) 1, indicating true, even though the machine evaluations of the two sides 
differ. APL evaluates A=B as true if the computer evaluations of A and B are relatively close. The 
measure of relative closeness involves the system variable comparison tolerance, LJCT;; it is assignable 
by the user but in a clear workspace is typically on the order of 1E~ 14. Precisely, APL evaluates 
A=B as true if the computer evaluation of | A-B is less than the evaluation of LJCT times the larger 
of |A and |B; thus, A=B is evaluated as true if the magnitude of their difference divided by the 
larger of their magnitudes is less than UCT. 
Ceiling, floor, membership, and the relational functions are all sensitive to ICT. For example, 


OCT+1E~14 

1=3x1+3 L3x1+3 1>3x1+3 
1 1 0 

OCT+0 

1=3x1=3 L3x1+3 1>3x1+3 
0 0 1 


The test of equality based on relative closeness can give results that might be unexpected on first 
meeting. For example, 


U+-0 1E°15 1 


OicT+1E-14 OcT+0 

O=U O=U 
10 0 100 

1=1+U 1=1+U 
11 0 100 


That O=1E£~ 15 yields 0 while 1=1+1E&7~ 15 yields 1 if ICT is 1E~ 14 may seem surprising, 
but these are valid consequences of the definition of the equals function. 
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Computers typically do not represent numbers exactly, and working near the limits of any ma- 
chine’s capacity to distinguish numbers that are very close can be problematical. Consider this example 
that was processed by one particular system: 


OCT +0 
LUIPP+16 
V-"1E°16 1E°16 ~2E°16 2E 16 
1+V 
0.9999999999999999 1 0.9999999999999998 1 
1T=1+V 
010 1 


Exercises 


Write an expression that gives the number of nonzero entries in vector V. 

Write expressions to count the entries of vector V that are (a) more than, (b) less than, D units 

from some fixed number M. 

3. Let V be a vector; express verbally the result of each expression. 
(a) 2=V (b) 2 5 9°.=V (ce) V42 5 9°.=V (d) +/V42 5 9°. =V 
Check your answers with V*9 9 25 4 “5 Q9 2 3. 

4. Write an expression to count the entries of vector V that are in at least one of the intervals 
(J,K) or (M,N). 

5. Write an expression to count the entries of vector V in the intersection or overlap of intervals 
(J,K) and (M,N). 

6. What information does the expression 


IN 


+/VA((J,M,P)°.<V)A(K,N,Q)°.>V 


yield about the entries of vector V relative to intervals (J ,K), (M,N), and (P,Q)? 

Write an expression to count the number of integer entries in vector V. 

Let V be a vector; express verbally the result of each expression. 

(a) Ve2 (b) Ve2 5 9 (c) +/Ve2 5 Q 

Check your answer with V©9 9 2 5 4 ~5 QY 2 3. Compare your answer to that for 

Exercise 3. 

9. Let A be any array and P be a positive number. Write an APL expression that replaces all entries 
of A having absolute value smaller than P by zeros but does not affect other entries of A. 

10. With S a matrix, write an expression to compute the averages of the numbers in each row of S, 
not counting any number smaller than 10. Test your expression on 


1go 3 


20 22 19 23 21 16 18 
315 17 14 18 16 13 
18 151219 13 8 14 
161410 5 15 12 15 
4 7141016 12 14 
20 21 019 22 18 20 
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11. 


12. 


13. 


15. 


17. 
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Let V be a vector having as entries the ages in years of the people in a certain population. Write 
an expression to give the frequency distribution of this data in the intervals [0, 20], (20, 35], 
(35, 50], (50, 65], and (65, 120]. 

Express verbally the condition tested by these inner products if U and V are equal length vectors: 


(a) UA.=V (b) UA. #V 
(c) UA. <V (d) UV.sV 
(e) UV. #V (f) 1V.=V 
(g) OA.<V 


Observe the error messages produced by 


(a) 1 2+.x1 2 3 (b) 2 541 4 4 
(c) ~2 (d) 1A42 
(e) O04 (f) (2 390)+.x2 3p0 


Note: At least one APL system has generalized the functions A and V: AVB yields the greatest 
common divisor of A and B; AAB yields the least common multiple of A and B. 


A student’s course grades over three terms are 

Ee 

Credit hours 3 3 3 4 3 33441133423 3«~«1 

with A, B, C, D having values 4, 3, 2, 1, respectively. Assign the data to two vectors and use 
those vectors to compute the student’s grade point average. 

(Continuation of Example 5.8.) If instead of just testing whether there is at least one path of 
length 2 from vertex i to j/. you wished to count these paths, you can do so by counting the k’s, 
k = 1,2,-°--+,n, for which the kth entries of row i and column j are both Is. What inner product 
of A with itself will do that? 

Suppose vector S contains a list of scores, each score being in the range from 0 to 650. Write an 
expression that computes the percentage that each score is of the maximum score of 650 ex- 
pressed to the nearest tenth of a percentage point. 

(For readers who know relations on sets.) If A, B, and C are finite sets, R is the (Boolean) matrix 
of a relation r from A to B, and S is the (Boolean) matrix of a relation s from B to C, show the 
matrix of the composition of r and s is given by the inner product RV .AS. 


In the special case with A = B = C andr = s, the composition of r with itself has matrix 
RV .AR, call it R2. Similarly, the k-fold composition of R with itself has matrix 


Rk«RV.ARV.A>++V.AR_ (k factors.) 


Using this notation, the matrix of the connectivity relation determined by r (also called the transi- 
tive closure of r) is given by RVR2VR3V - - » VARn where n is the number of elements of A. 
(For readers who know the method of Warshall [W].) Write an APL function that generates the 
transitive closure of a matrix of a connectivity relation by the method of Warshall. 


Simulation and More 
Mathematical Functions 


This chapter introduces the random selection functions of APL, roll and deal. It illustrates their use 
with probability simulations and Monte Carlo integrations. The chapter also introduces the factorial and 
binomial functions, with applications to probability problems, including the binomial probability distri- 
bution, and a polynomial translation formula. Finally, it presents the circular, hyperbolic, and 
pythagorean trigonometric functions and multiplication by pi. The user-defined functions in this chap- 
ter use the relationals from Chapter 5 and are a little more complex than previous examples. 


6.1 Roll, Deal, and Random Link 


Random selections can be made with the APL function roll, which is named in analogy with a roll of 
a die. Roll is denoted by ? and takes positive integers as arguments; ?N selects one element from 1 N 
with all elements being equally likely. For example, 


26 26 6 2506 
1 5 3 4215 5 

215 22710 22 5010 
1124 1 1 7 1 4 1~« 5 


7 610 9 6 
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As an illustration of roll, consider the expression (S<4)V10<S++/7?26 6, which yields 1 
if the total points on a simulated roll of two dice is either greater than 10 or less than 4 and returns a 0 
otherwise. 

Note that roll is a scalar monadic function. The dyadic use of ? signifies the APL function deal, 
named in analogy with a deal of a hand from a deck of cards. For example, 3? 10 would select a vec- 
tor of three distinct elements from 110, with all such triplets being equally likely. For positive in- 
tegers M and N with MSN, the expression M?N yields a random selection without replacement of M 
elements from 1 N. The special case 0? WN yields the empty vector 10. Examples are 


378 378 828 

8 3 4 31 2 672481 3 5 
1?10 1?10 271 

8 1 (Error message.) 


Deal is not a scalar function; it does not accept higher dimensional arrays in either argument. 

The value of ?N is determined by two numbers: N and the APL system variable random link, de- 
noted LIRL . Each execution of roll causes LIRL to cycle to another value in a large set of positive in- 
tegers. Before any execution of ? in a clear workspace the value of DAL is 16807. Random link is 
assignable by the user. Notice the changes in value of LJRL after uses of roll or deal: 


LIRL «16807 LIRL+16807 LIRL «16807 
26 2509 529 
1 27552 8243 7 
ORL ORL ORL 
282475249 470211272 470211272 


It is advisable to record the value of LIAL at the outset of any sequence of computations involving 
roll or deal that you might wish to review or duplicate. When you specifically do not want to repeat a 
prior set of “random” choices, assign LIAL a different value at the outset of each such work block. 
Random link can be made a local variable in a defined function; in that case, it must be assigned a 
value before any execution of roll or deal. 


6.2 Example: Matching Partners 


Hank and Sally Stepintime, cochairs of the local chapter of SYPSDA (Swing Your Partner Square 
Dancers of America), enlivened the weekly dances for their 20 dancing couples with a random partner 
drawing for one of the dances. Slips of paper with the men’s names were drawn out of a hat by the 
women to determine their partners for the dance. More often than not, at least one woman would draw 
her own escort’s name. Many executions of a simulation of this drawing scheme suggest that such co- 
incidences, or matches, are to be expected. 

The random partner drawing can be simulated with deal. Let the men be represented by the 
numbers 1-20 in the vector ESCORTS+120. The drawing of partners will be represented by 
PARTNERS+20?20. Then PARTNERS=ESCORTS will show any coincidence of partners 
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and escorts, and +/ PARTNERS=ESCORTS will give the count of such coincidences: 


URL +1000 
ESCORTS+120 
L1+ PARTNERS +20720 

2098 6411421916517 15 3111312 18 10 7 
PARTNERS =ESCORTS 

000000000000 000001 0 0 
+/PARTNERS=ESCORTS 

, 


Running this simulation and counting coincidences several times, but omitting the variable names 
gives the following: 


+/(20?20)=120 +/(20?720)=120 +/(20?20)=120 
0 1 1 


+/(20?20)=120 +/(20?720)=120 +/(20?20)=120 
3 Ss) 1 


Students of probability might recall that the probability of at least one coincidence (match) between 
partner and escort is approximately 1 — 1/e ~ 0.63. 


6.3 Example: Simulating a Classical Probability Experiment 


Each of three boxes contains two balls, one ball in each of two compartments in each box. One of the 
boxes contains two red balls, one has one red and one white ball, and one has two white balls. Suppose 
a box and one of its compartments is chosen at random and the ball therein is seen to be red. What is 
the probability that the ball in the other compartment is red? 

The answer, which is not 1/2, can be calculated with aid of conditional probabilities. Constructing 
APL simulations of the experiment is instructive, however, and numerical output can strengthen your 
intuition about conditional probabilities. The first simulation presented here adheres rather closely to 
the description of the experiment. 

Let the rows of the 3-by-2 matrix 


M=i;1 0 
0 0 


correspond to the boxes, and let the columns determine compartments in the boxes. Signify the red and 
white balls by 1s and Os, respectively. The function S /M below simulates performing the experiment 
N times; it returns the number of times when the ball in the other compartment is red, given that the 
first selected ball is red. Since, often the first selected ball is not red, drawings are simulated until red 
occurs on the first draw N times. 

In line 1 the counters for R, the number of times the first draw is red, and Z, the number of times 
red is found in the other compartment after a red first draw, are initialized and the matrix M is defined. 
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A box B and compartment C are randomly chosen in line 2, thereby selecting the first ball. The se- 
lected ball is tested for being red in line 3 by the equality 1=M(B;C J. If this is true, the branch is 
forward to line 4; if false, the branch is back to line 2 and another random selection of a first ball. Note 
that neither R nor Z is incremented if the first selected ball is not red. In line 4, A is incremented, and 
MCB ;1+C=1] tests whether the ball in the “other” compartment is red, since 1+C=1 is the num- 
ber of the “other” compartment. If that ball is red, Z is incremented. In line 5 the relation R <WN tests 
whether N simulations have been completed. If not, the branch is back to line 2; if so, execution of 
S /M is terminated by a branch to zero. The function S/M is as follows: 


Vv Z+SIM N;B;C;M;R 
C1] Z+R-0 9 M+3 2011100 0 
[2] B+?3 9 C+?2 
C3] +2+2x1=M[IB;C] 
[4] R«+R+1 96 2Z+Z+M(B;1+C=1] 
C5] -2xR<N 


Vv 


A few runs of S/M suggest that the desired probability is between .65 and .7 and probably close 
to .67: 


LIRL «16807 
SIM 10 SIM 100 SIM 1000 
7 65 669 


The function S /M was designed to mirror the experiment closely. It works; it does not, however, 
follow some recommended programming practices. It does not make the best use of APL and is slow. 

Contrast S /M with the following simulation in which the loop with counter Rt in S/M is effec- 
tively replaced by use of the reshape function and the first selection is restricted to red balls. By ran- 
domly choosing boxes and compartments, each of the six balls is equally likely to be the first chosen 
one. This suggests ordering the balls in a vector V1 1 1 O O O in which successive pairs of 
components [1, 1], [1,0], [0,0] represent the three boxes. Since the experiment is concerned only 
with cases for which the first chosen ball is red, a random choice need be made from among only the 
first three components of V. After that choice, the ball in the other compartment will be red if and only 
if the first chosen ball was in the first or second component of V. Thus, with ?3 indicating the posi- 
tion of the first selected ball, the other ball is red if and only if 22 23. By this analysis N experiments 
can be simulated by executing +/22?Np3, which runs very rapidly: 


LIRL + 16807 
+/22210003 +/222100003 
62 676 


Since each execution of ?3 gives a sample from a uniform distribution on the set {1, 2, 3} and the 
other ball is red if and only if 2223, you can conclude that the desired probability is exactly 2/3. 


6.4 Example: Polya’s Urn Scheme 


Some ideas of the previous example are extended in simulating a famous scheme of G. Polya. An um 
contains r red balls and w white balls. A ball is drawn at random, its color is noted, and it and k more 
balls of the same color are added to the urn. The process is repeated. After each drawing, the ball 
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drawn and k balls of that color are added to the urn. What is the probability that the second ball drawn 
is red? The third ball? The fourth? 

According to W. Feller [F, p. 83], “This scheme was devised for the analysis of phenomena like 
contagious diseases, where the occurrence increases their future probabilities”. 

The function POL YA below simulates four successive drawings made in accordance with Polya’s 
scheme. Moreover, it allows N independent simulations of each drawing to be accomplished by apply- 
ing the scheme to N urns simultaneously. The vector left argument of POL YA has r, w, and k as com- 
ponents; the right argument N specifies the number of repetitions (number of urns) of the scheme to be 
used. The fractions of the N times that red balls result on each of the first, second, third, and fourth 
drawings are reported in the output vector of the function. These fractions serve as estimates for the 
required probabilities. 

In line 2 of POL YA, the initial total number of balls in each urn is stored in T, the loop counter 
for the number of drawings is initialized, and the output vector is set to the empty vector. Line 3 tests 
whether four drawings are completed. At each drawing from a given urn with A red balls and T (total) 
balls, when R2?T yields 1 it represents drawing a red ball from the urn. In line 4, the relation 
R=?NopT simulates N drawings simultaneously, and the results of the N drawings are stored in the 
N-element Boolean vector B. The components of B are averaged, and this fraction is adjoined to 
the output vector Z. Before the next drawing, the (differing) numbers of red balls in each urn and the 
total (common) number of balls in every urn is adjusted in line 5 using the outcomes of the previous 
drawing, which were recorded in B. Note that R becomes an N-element vector during the first execu- 
tion of line 5. Line 6 marks the end of the loop. Here is POL YA: 


Vv Z+V POLYA N;B;1;K;R;T;W 
C1] R-VC1] 6 WeVEL2] 9 K+-VL3] 
[2] T+R#*+W 9 10 9 210 
C3] +4x/<4 
[4] BeR2?NoT 9 Z+Z,(+/B)=N 
[5] l-/+1 9 ReR+KxB 9 T+Tt+K 
C6] +3 


Vv 


Simulations will be run with r = 3, w = 7, and k values 2 and 5; the fraction of reds on the first 
drawing should be near r/(r + w), or .3. Examples follow: 


URL +16807 

3 7 2 POLYA 10 3. 7 5 POLYA 10 
0.3 0.4 0.1 0.1 0.2 0.3 0.2 0.3 

3 7 2 POLYA 100 3 7 5 POLYA 100 
0.3 0.24 0.29 0.3 0.32 0.34 0.23 0.3 

3 7 2 POLYA 1000 3 7 5 POLYA 1000 
0.298 0.303 0.306 0.295 0.302 0.295 0.302 0.308 


With many repetitions of this simulated experiment the fraction of red balls on each drawing is 
close to .3. These results suggest that the probability of drawing a red ball at any particular stage is 
independent of the number of drawings! This is, in fact, true; moreover, the probability, which 
is r/(r + w), is independent of k, the number of balls added at each step. 
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6.5. Factorial and Binomial 


For nonnegative integral arguments, the APL factorial function is the same as the factorial function of 
mathematics; thus, ! N has the same result as x /\N. In particular, ! 0 yields 1. For example, 


17 114 12 3016 
5040 12 6 24 1 2 6 
24 120 720 


The infinite series 1 + 1/1! + 1/2! + 1/3! + --+- has sum e, the base of the natural logarithm 
system. An APL expression for the sum of the first ten terms of this series, +/+! ~1+110, yields 
2.718281526, which is correct to the millionths place. 

Recall the mathematical notation for the binomial coefficients: 


n\ _ n! 
m} — m!(n — m)! 


Here the coefficients are used in a familiar formula: 


(a+b) = (3)ero + ())ar0 + (3)e'e + (Jato 


The binomial (or combinatorial) function of APL is indicated by dyadic use of the factorial symbol. 
For example, the binomial coefficient (3) is written as 2! 5: 


215 3!5 4 8 (0,15)!5 
10 10 4 56 15 10105 1 
V+0,15 
Vol!V QVeo.IV 
1 #1 14 #14 =+4~'1 1 0 0 0 0 0 
0 1 2 3 4 #5 1 1 0 0 0 0 
0 0 1 3 #6 10 1 2 1 0 0 0 Notice Pascal’s triangle. 
0 0 0 14 4 10 1 3 3 1 0 =O 
0 0 0 0 1 #=§ 1 4 6 4 1 0 
0 0 0 0 0 1 1 51010 5 = 1 


The binomial M! N has a combinatorial interpretation: If M and N are nonnegative integers, 
M!WN yields the number of different subsets of M elements in a set of N elements; alternatively, it is 
the number of ways to choose M elements from N elements. For example, the probability of getting 2 
aces in a bridge hand is the product of the number of ways to choose 2 aces from the 4 aces in the 
deck, times the number of ways to choose the other 11 cards in the hand from the 48 non-aces, divided 
by the number of ways to choose 13 cards from the deck of 52, or (2!4)*(11!48)=(13!52), 
which yields 0.2134933974. There is more about the factorial and binomial functions in 
the exercises. 


6.6 Example: Binomial Distribution 


The probability function called the binomial distribution (or binomial density function) measures the 
probability of achieving k successes in n independent trials of an experiment with constant success 
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probability p. A random variable X with a binomial distribution has probability function given by 


N\ x n-k 
| i fork = O,1,°°°, 
P(X =k) = ("\p (= py" for " 


0, all other k 


Here is a typical type of use of a binomial distribution: If a production run of a large number of 
widgets is assumed to have 3% defectives, what is the probability that a random collection of 20 wid- 
gets contains 2 defectives? Viewing the sampling of 20 from a “large number” as being independent 
trials and applying the binomial distribution with success meaning the choosing of a defective widget, 
the required probability is (2!20)x(.03+*2)x.97*18, or 0.09882966589. 

Binomial distribution problems often inquire about the probability of at most k successes in n trials 
or at least k successes in n trials. The defined functions B! NATMOST and BINATLEAST, respec- 
tively, compute such probabilities. The left argument of each function is a vector containing the para- 
meters n and p; the night argument is the maximum (minimum) number of successes, and the output is the 
probability of at most (least) k successes in n independent trials with constant success probability p. In 
BI NATMOST the probabilities of exactly 0, 1, ---,k successes are summed to get the desired probabil- 
ity; correspondingly, the probabilities of k,k + 1,---,n successes are summed in B|NATLEAST: 


Vv Z+NP BINATMOST K;A;N;P 
C1] N«eNPC1] 9 P«NP[L2] 9 A+0,\K 
[2] Z++/(A!IN)x(P+#*A)x(1-P)*N-A 


v Z+NP BINATLEAST K;A;N;P 
C1] N«NPCT1] 9 P*NPL2] 9 AtK,K+\N-K 
[2] Z+t+/(A!IN)x(P*A)x(1-P)*N-A 


Vv 


Returning to the widgets example above, the probabilities of getting at most 2 and at most | de- 
fectives in a batch of 20 are given by 


20 .03 BINATMOST 2 20 .03 BINATMOST 1 
0.9789916436 0.8801619777 
And the probabilities of at least 2 and at least 1 defectives in a batch of 20 are 

20 .03 BINATLEAST 2 20 .03 BINATLEAST 1 
0.1198380223 0.4562056571 


This last example can be alternatively computed as 1 minus the probability of no defectives, or 
1 — P(X = 0), which is evaluated by 1-(0!20)x(.03*0)*.97*20 or simply 
1-.97+*20, which yields 0 .45620565/71. The relation between at most and at least is further 
exploited in Exercise 10. 


6.7 Example: Polynomial Translation 


Given a polynomial such as P(t) = 3 — 4t + 2, the question arises: What are the coefficients of the 
powers of t for a composite function such as P(t + 5)? For this example, it is easy to check that 
P(t+ 5) =3 -— 44 + 5) + 2(t + 5)? = 33 + 16t + 217, and the required coefficients are 33, 16, 
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and 2. This is an example of finding the coefficients of a translated polynomial P(t + d) for a given P 
and translation d. 
In general let 


P(t) = > pyt® 
k=0 
Then using the binomial formula 


n n k k . . 
P(t + d) = > p(t + dy = DS iD ( tds 
k=0 k=0 ~=i=0 \! 
and by changing the order of summation 
: i . K\ ogi 
P(t+dad=)>t'd p, ,}4 
i=Q k=i 


This last summation gives formulas for the desired coefficients. 
An efficient APL function for generating these coefficients is developed next. For notational sim- 
plicity consider this last formula with n = 3; then 


‘[a()en(a)a' sali) +a()e| 
ae raG)eea()et 
ref Cel 


The vector of coefficients of powers of ¢ in this equation can be seen as the +. * inner product of 
the matrix 


P(t + d) 


+ 


+ 


and the vector with components po, P;, P2, P3- This latter matrix is a simple * product of two matrices 
generated from V+O 1 2 3—namely, Ve .! Vand D*QVo.-V. For clarity, only the expo- 
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nent portion of the last matrix will be displayed; putting in a value of D would obscure the structure. 
Notice that the positions of the negative entries in QVe . —V correspond to zero entries of the matrix 
Ve .! Vand in the multiplication the negative powers of D will vanish: 


V-O0 1 2 3 

VollV QVe.-V 
11717 0 1 2 8 
012 3 “1 O 1 2 
001 3 “2 “1 0 1 
000 1 “3 “2 “1 =O 


The left argument of the function POL YTRANSLATE defined below is the coefficient vector of 
a given polynomial P in order of increasing powers with Os for missing powers, and the right argument 
is the scalar shift d. The result is the vector of coefficients of the polynomial translation P(t + d).: 


v Z+P POLYTRANSLATE D;V 
C1] V«e"1+ipP 
C2] Ze((Ve.!V)xD*QVeo.-V)+.xP 


8 0 ~3 1 2 POLYTRANSLATE ~1 
61677 2 


The last example shows that 6 + t + 6t* — 7t°* + 2t* is the polynomial translation of 8 — 3r? 
+ t° + 2r* with t replaced by t — 1. 


6.8 Trigonometric Functions 


The circular and hyperbolic functions are primitive APL functions, and, as with all the primitives, the 
trig functions are invoked with special symbols. (Letter combinations such as S/N or COS remain 
available for user-defined functions or variables.) The APL circle, ©, is used dyadically for this family 
of functions; for example, the cosine of X is given by 20X. Angle measures are in radians. The circle 
functions defined with square roots are known as pythagorean functions. Here is a list of corresponding 
notations: 


V1 — X*< 00X 
sinX — 10X ~ 10X © arcsin X 
cos X < 20X ~20X  arccos X 
tanX — 30X ~30OX < arctan X 
V1+xX’?< 40x “40X @& V-1 4+ X? 
sinh X <> 50X ~5OX & arcsinh X 
cosh X < 60X ~60X < arccosh X 


tanh X — /OX ~ OX © arctanh X 
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Circle used monadically, as in OX, yields pi times X. Thus, 01 is 3.141592654, and 
030+180 is 0.5235987756, which is the radian equivalent of 30 degrees angle measure; for 
example, 


100 200 ~ 201 


10030+180 100+6 (180=01)x~10.5 


6.9 Example: Monte Carlo Integration 


Let f be a continuous function satisfying 0 < f(x) < M on [a, b]. One approach to estimating J? f(x) dx 
is to multiply M(b — a) by the fraction of a set of points randomly distributed in the rectangle 
{(x, y)|a <x < b, 0 < y < M} that lies below the graph of f. The idea extends to more general re- 
gions and integrals. In applying the technique, the defined function RANREAL introduced in 
Section 3.4 will provide random choices of N points from the interval [0, 1]: 


Vv Z*RANREAL N 
C1] Ze1E°17x?Np1E17 


Vv 
OPP +5 
RANREAL 1 RANREAL 2 RANREAL 2 2 
0.13154 0.45865 0.21896 0.67886 0.93469 


0.51942 0.034572 


For a first example, consider the familiar integral 
n/2 
| cos xdx 
0 


(Caution: © . 5 corresponds to 77/2, although it looks like 0. 5.) 
X+«(0.5)xRANREAL 1000 Random x’s on [0, 7/2]. 


Y+RANREAL 1000 Random y’s on [0, 1]. 
Q+ .001x+/Y<20X Fraction of points below graph. 
0.5x1xQ Estimate of integral. 

1.0053 


1. 
Si(1) = \ sinx 
0 x 


Figure 6.1. The sine-integral of 1. 
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Next, estimate the sine integral (Si) of 1, shown in Figure 6.1: 


X«+RANREAL 1000 

Y“RANREAL 1000 Note (sin x)/x lies in [0, 1]. 

.001x*x+/YV<(10X)=X Estimate of integral Si(1). 
0.931 


The area inside the unit circle x? + y* = 1 in the first quadrant is 7/4. Hence, an approximation of 
that area multiplied by 4 approximates zr. Note the use of the pythagorean function 00 in this example: 


ORL «16807 
X+RANREAL 10000 © Y*RANREAL 10000 
(4+10000) x+/Ys00X 

3.1592 


Finally, estimate ff, cos(xy) dA, where R is the triangular region in the first quadrant of the x—y 
plane having vertices (0,0), (1,0), and (0, 1). For (x, y) in R, 0 < cos(xy) = 1; thus, the relevant part 
of the graph is in the triangular prism having base R and height 1. The prism in turn is a subset of the 
cube {(x, y,z)|0 <= x, y,z S 1}. A sample from a uniform distribution of points over this cube will be 
generated, and the fraction of points (x, y, z) with (x, y) in R and z less than cos(xy) will be multiplied 
by the volume of the cube, 1, to estimate the integral. Note that (x, y) is in R corresponds to 
y<1l--x: 


X+RANREAL 5000 

Y+RANREAL 5000 

Z+RANREAL 5000 The points (x, y,z) are in the cube. 

.0002x+/(2<20XxY)AY<«1-X Approximates the integral. 
0.4944 


Exercises 


1. Guess the most likely value of ????10. Execute the expression several times. Try 
2222100010. 

2. Write an expression that simulates a roll of three dice and returns a 1 if any die shows a 6 or if 
the sum of the points on the three dice is less than 5, and returns a O otherwise. 

3. In Example 6.2, the counting of matches in a drawing was simulated by the expression 
+/(N?N)=\.N with N«20. Experiment with this simulation with N values 5, 50, 100, 
1000. Do matches seem likely in all cases? 

4. Define a function, including a loop, that simulates N drawings to approximate the average num- 
ber of matches of escorts and partners in Example 6.2. More formally, if X is the random variable 
giving the number of matches as a result of a drawing of the names from the hat, estimate E(X), 
the expectation of X. Try the function with N« 100. 

5. (Refer to Example 6.3.) Suppose there are four boxes: one having two red balls, two having one 
red and one white ball, and one having two white balls. Given that the first randomly selected 
ball is red, what is the probability that the other ball in the same box is red? This experiment can 
be simulated with a defined function like S/M, but that is not recommended here. Instead, since 
each ball is equally likely to be drawn first, think of numbering the red balls from 1 to 4, with 
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balls numbered | and 2 in the same box. Let ? 4 indicate the first selected red ball, then: - : (Finish 
the simulation of counting the number of other-ball-is-red outcomes in N drawings.) From your 
analysis determine the exact probability. 

Modify POL YA of Section 6.4 so that an arbitrary number, D, of drawings may be simulated. 
Begin by making the right argument of POL YA a two-element vector containing D and N. 
Describe in words the variation on Polya’s urn scheme (Section 6.4) that is simulated by the func- 
tion NEWPOL YA: 


Vv Z2+V NEWPOLYA N;B;1;R;7T;W 
C1] ReVL1] 9 WeVL2] 
[2] T+Rt+W 9 I!+0 9 210 
C3] +4x 1 <4 
C4] BeR2?NoT 9 2Z+Z,(+/B)=N 
[5] R+R+B-~B 9 W+W+(~B)-B 
C6] O-/+/ +1 
[7] *3xA/0#R ,W 


Vv 


Note that this function can stop execution and return a result before four draws are completed if 
the number of red or white balls is initially less than 4. 

The APL factorial function ! X corresponds to the gamma function of mathematics evaluated at 
X+1. Try: 

(a) !°1.5,°.5,.5,(*1),01 (b) !° 1 (c) !°2 

Experiment with the binomial function. Try 1.2!—.75 and (*#1)!01. Try Vo.!V+~ 4417 
and Ue. !U+~3.5+16. But, try .5!71 and~ .3! "2 (first argument nonintegral, second 
argument a negative integer). 

Redefine the function B! NATLEAST of Section 6.6 in terms of the function B | NATMOST. 
Let the vector X be given by X*RANREAL 10 (see Section 6.8). Predict the output of the ex- 
pression +/((10X) ,20X)*2. 

Approximate fj; V1 + x‘ dx using the Monte Carlo technique with 1000 points. 

Approximate J J,V1 — x’y?dA, where R is the square 0 = x, y = 1. Use 10000 points. (Sug- 
gestion: Use a pythagorean function.) 

Most people are surprised to learn that in any randomly selected group of more than 22 people 
there is a greater than 50-50 chance that two people share the same birthday. For a group of 23, 
the probability is near .51 that there is a shared birthday. For 41 people the probability is greater 
than 90% that there is a shared birthday. The expression B+ ?230365 generates a vector of 23 
randomly chosen “birthdays”. Incorporate that expression in a defined function with a loop that 
simulates sampling sets of 23 birthdays N times and reports the number of times there are any 
shared birthdays. 


Statistics and Graphics 


This chapter uses APL to analyze data. It introduces several primitive APL functions and operators to 
compute descriptive statistics. These provide the capability to find minimum and maximum values and 
the capacity to order, replicate, and accumulate data. The chapter also introduces character arrays, 
which are used to display data visually via histograms and scatter plots. Linear regression is recalled 
and data are plotted along with the line of best fit. The chapter ends with sampling from several types 
of distributions. 


7.1 Mean and Standard Deviation 


Given a list of data as a vector, the mean or average of the entries in the vector can be computed as in 
Section 3.1: 


Vv Z+AVG W 
C1] Z+(+/W)+oW 
Vv 
X*2 “14771 8 Y¥*5 78994876 5 8 8 
AVG xX AVG Y 
4 7 
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The sample standard deviation can be computed using 


v Z2+SD W 
C1] Z+((+/(W-AVG W)+*2)="1+pW)+0.5 


Vv 


X-AVG X 
“2 °5033 73 4 


+/(X-AVG X)*2 
72 


SD X SD Y 
3.464101615 1.651445648 


7.2 Maximum and Minimum 


APL provides minimum and maximum functions, which are invoked by the dyadic use of the symbols 
L and [ ; these symbols were used monadically for ceiling and floor in Section 5.9. Thus, 3L 4 is 3, 
the minimum of 3 and 4. Likewise, 2 ~5 is ~5 and 2L7~ 3L125L0 is ~ 3. When Wis a vector, 
the expressions | / Wand [ /W produce the minimum and maximum entries of W, respectively. Recall 
that L / W gives the same result as inserting a L between all elements of W. Examples follow: 


A B C 
13147 “25 ~5 4 6 423 
16 4 
L/A L/B L/C 
1 ~5 21 
[/A [/B [/C 
7 6 4 6 
ALB ATB 3IC 
“2375 46 15147 4 3 3 
3 6 4 
[/ALB AT .LB 
6 6 


7.3 Example: Range 


The range of a data set given as a vector can be computed using the maximum function [ and the mini- 
mum function L: 


Vv Z+RANGE W 
C1] Z-(L/W) ,T/W 


Vv 
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xX Y 

2°1477«1« 8 578994876 5 8 8 
RANGE xX RANGE Y 

~1 8 49 

7.4 Grade Up 


The APL grade up function, 4 results in a list of indices. If a vector argument V has distinct entries, 
then 4V is the vector containing the index of the smallest element of the vector V, followed by 
the index of the next smallest element of V, and so on, up to the index of the largest element of V. 
When the vector V has repeated entries, the indices of the repeated entries appear in increasing order. 
For example, 


X Y 

2°14771 8 578 9948765 8 8 
4X AY 

261345 7 61109283 711 12 4 5 
XC4X] YC4Y] 

“112477 8 4556/7788 8 8 9 9 


Notice the APL idiom VE 4V] orders the elements of the vector V. This indirect method for 
ordering vectors allows considerable flexibility in ordering matrices. Further uses of 4 and ¥ are con- 
sidered in Sections 9.1 and 9.2. 


7.5 Example: Median 


The median of a data set is a point halfway up the ordered data. Once the data have been ordered, it is 
fairly easy to identify the median. 

Consider a vector V of data. If  V is odd, the median is the middle entry of VI 4V]. If p Vis 
even, the median of V is taken to be the average of the two middle entries of V. Thus, the median of 
13 4 7 8 is 4, and the medianof 13 4 7is3.5. 

The even and odd cases are treated together in the function MED | AN. If p Wis odd, both [ .5xpW 
and L1+.5%*pW give the middle index of W. If pWis even, [ .5xpWand L1+.5%* pW give the 
two middlemost indices of W. The average of the elements of the ordered vector having these indices is 
the median in either case. Let X and Y be as in the previous section: 


Vv Z+MEDIAN W W is a vector of data. 
C1] WeWL4W] First order the data. 
[2] Ze. 5xWOl .5xpWI]+WLL1+.5xpoW] 
Vv 
MEDIAN X MEDIAN Y 
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7.6 Character Arrays 


Vectors of characters can be entered by enclosing characters within single quotation marks. Many APL 
functions that apply to numeric arrays also apply to character arrays. For example, 


X+'HI JOE' Y+' KELLEY' Z-'Qs' 

X,Y Y='E' ZC2 2111 2) 
HI JOE KELLEY 001001 0 + «00+ 

ox +/Y='E' ZC1+Y='E'] 
6 2 OO +00) +0 

2 30X +/Ye' ' ZC1+1 2°.<1 2 3] 
H! 6 [Js » 
JOE OCI « 


"e' 5 (2 Sox), '«' 
*Hl * 
+ JOE « 


Notice that +/ Y= 'E' counts the number of E’s in Y and +/ Y#' 


blank characters. 
The quote character itself requires special consideration. Two single quotes consecutively indicate 


a quote mark within a character vector: 


"IT''S EASY' 
IT'S EASY 


counts the number of non- 


7.7 Example: Frequencies 


Consider a set A, called a sample space, from which some data W are taken with repetitions allowed. 
The number of times each element of A appears in W is called the frequency of that element in W: 


A+i8 

W+3 5433937885 2 2 1 

Ac .=W 
00000000000 1 
“00000000011 0 
1001131000000 
“00100000000 0 
010000001000 
“00000000000 0 
“00000010000 0 
“00000001000 0 

FREQ++/A°> .=W 

FREQ 
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Thus, there is one 1, two 2s, four 3s, and so on, occurring in the data W. Whenever A and Ware 
vectors, the idiom +/Ao . =W gives a vector of the frequencies of the elements of A in W. 

Section 9.6 considers another approach to computing frequencies. That approach is faster for large 
data sets but is more complicated than the method in this section. 


7.8 Example: Histograms 


Once a vector of the frequencies has been computed, it is fairly easy to display the frequencies with a 
histogram. First, a Boolean matrix is constructed. The number of 1s in the lower positions of a column 
is the corresponding entry in the vector of frequencies. Using the frequencies of the elements of A in W 
from above gives 


FREQ 
1241201 1 

43 2 1°.sFREQ 
0010000 0 
0010000 0 
01101000 
1111101 «+7 


This matrix gives a histogram of the data W. 

Next, the matrix is used to construct a character matrix that is visually more appealing. One 
is added to those Boolean values to get indices for a character vector. The character vector has two 
entries, a blank and a star. The zeros in the Boolean outer product ° . < correspond to blanks and the 
1s correspond to the stars: 


C+' x ' 
Cl1+4 3 2 1°.sFREQ] '" *#'£14+4 3 2 1°.S5FREQ] 
* * 
* * 
kk ot kk 
kkhekk okt kkk kk okt 


Notice that there is no need to name the vector * " of characters used. The outer product and 


indexing the character vector ' * ' will be used in a function H/ ST. The function takes integer data 
given in a vector as its argument W and results in a histogram. The sample space, A, is taken to be the 
integers within the range of the data. Notice that with F as the vector of frequencies, Mt 1—-\M+[ /F 
is a vector of consecutive integers decreasing from the maximum frequency M, down to 1: 


Vv ZeHIST W;M;SA;F 
C1] A+M+~14+11+(7/W)-M<«L/W Find the sample space. 
[2] Fre+/Aco.=W Find the frequencies. 
C3] Ze' «'[1+(M+1-\M+l/F)°.sF] 
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HIST 354333785 2 2 1 


If data are not given as integers, you can round the data to be integral. Moreover, if the data are 
too spread out, you can scale them by a suitable factor. The situation of having too much data for a 
nice histogram is considered in the exercises. As an example of handling spread-out real data, consider 
the vector Y, which has 25 elements: 


5 5pY 
5.00572017 15.91457254 20.81441836 20.02868071 24.61890713 
27.15621801 28.83345066 30.18212575 29.95967286 29.26922668 
35.37330529 33.67852318 36.66205049 35.97868324 36.78051286 
42.47346322 38.44806 37 .54378816 43.56616929 46.82608646 
43.35768679 48.28296999 51.09287784 56.02385012 58.61443855 


HIST L.5+Y Round the data, then use H!/ ST. 
x * x * 
* * xx * * xx kekekeke xkrk xk * * * 
HIST L.5+.2xY Scale back by a factor of . 2 first. 
* 
xk 
kekekerk 


kkekekkeke 


* kKaekkE Keke Ke KK 


7.9 Replicate on Vectors 


The replicate function, designated by a slash, /, can be used to select, discard, or repeat data. Since 
the left argument of replicate is a numeric vector, there is no ambiguity with the use of slash for 
the reduction operator, which has a function left argument. Here replicate is applied to vector right 
arguments; see Chapter Eight for extending replicate to arrays. 

The arguments of the replicate function are vectors of equal length. The elements of the left argu- 
ment are nonnegative integers indicating the number of times the corresponding item of data on the 
right is to be repeated: 


1241/7361 2 141414 1/'|-0-|' 
"36611112 ~---e----| 
1001/7361 2 1010 O/'|-°-1' 


~3 2 ° 
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If the left argument is Boolean, replicate is called the compression function; the vector is com- 
pressed by omission of terms corresponding to the zeros in the left argument: 


Xx (X>3)/X (X#3)/X 
324734593 447459 24745 9 


7.10 Example: Separating Data 


The 60-element vector C below contains a mixture of data from two distinct populations. A histogram 
of the data makes that fact apparent. Looking at the ordered data, C[ #C], it is clear that the gap in 
the data is about 32. Notice the use of (C<32) /C to select the data in C that is less than 32: 


C 

94 21 25 24 45 22 53 47 29 39 42 47 49 41 45 30 25 44 23 24 27 
37 24 21 47 47 45 39 22 49 18 51 23 43 21 41 43 23 42 24 
25 24 26 22 49 24 35 53 36 25 23 27 41 44 18 22 45 20 46 
24 
Cl4C] 

18 18 20 21 21 21 22 22 22 22 23 23 23 23 24 24 24 24 24 24 24 
25 25 25 25 26 27 27 29 30 35 36 37 39 39 41 41 41 42 42 
43 43 44 44 45 45 45 45 46 47 47 47 47 49 49 49 51 53 53 


54 
HIST C 
* 
* 
* 
kkk * * 
kaekkk * * * * 
* kkekek tk * * xkkekexkre * * * 
* keeekkKkK x * kerk * kkekekekeke * * xk 
C1+(C<32)/C C2+(C>32)/C 
C1 C2 
21 25 24 22 29 30 25 23 24 54 45 53 47 39 42 47 49 41 
27 24 21 22 18 23 21 45 44 37 47 47 45 39 
23 24 25 24 26 22 24 49 51 43 41 43 42 49 
25 23 27 18 22 20 24 35 53 36 41 44 45 46 
AVG C1 AVG C2 


23 .53333333 44 .63333333 
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HIST C1 HIST C2 
* * * 
* * * * * 
* * kkekeke * * * 
kkk kkk * eaekkeK Ke * * xk 
kaekeker 
* keke * 


* kaekkekekeke xk 


7.11 Scan 


The scan operator, designated with a backslash, \, is used to compute partial reductions, such as a 
vector of partial sums or partial products of a given vector. The expression +\2 5 6 4 results in 
the vector 2 7 13 1/7; that is, the vector of partial sums (+/2), (+/2 5), (+/2 5 6), 
(+/2 5 6 4). Notice that when a reduction applies to a single element, the result is the element. 
Likewise x\2 5 6 4 results in the vector of partial products 2 10 60 240. Scan extends to 
arrays in much the same way that reduction does; examples are 


A B 
1 2 3 4 0011 1 
5 6 7 8 0111 1 

+/A +/B First a reduction. 
10 26 3 4 

+\A +\B 
1 3 6 10 001 2 3 
5 11 18 26 0123 4 

+XA +B 
1 2 3 4 0011 1 
6 8 10 12 01222 

x\A <\B 
1 2 6 24 00100 
5 30 210 1680 01000 


Notice that +\A results in partial sums along the rows of A, and +A results in partial sums 
along the columns of A. If fis any primitive scalar dyadic function and A is an array, then f\A gives 
the partial f reductions along the last axis of A. Of course, for some scalar dyadic functions, the domain 
may be restricted. The scan operator is used next in a variation on the histogram function. 


7.12 Example: Cumulative Histogram 


The function H/ ST is modified to show the accumulation of data. The only change to H/ ST is 
the use of scan on line 2 so that the cumulative frequencies, or the scan of the frequencies, SF, are 
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computed instead of the frequencies F that were used in H/ ST: 


Vv Z+CUMHIST W;M;A;SF 
C1] A+M+~14+114+(1 /W)-M+L/W 
[2] SFe+\+/Ac.=W 
[3] Ze' «'[1+(M+1-1M+[/SF)°.<SF] 


DO-3 54393937 8 5 2 2 1 

HIST D CUMHIST D 

* * 

* * * 

x * * kkk 

kkekekk k * kerk 

kaeek tk 

kaeaekkt 

kaeaekk tk 

kkekekktk 

keaekk ak 

kaekak Kk KE 

kaekak kK 


keke kaka 


7.13 Plotting X-Y Points 


Consider the problem of plotting a given list of (X, Y) points by marking a spot corresponding to each 
(X,Y) with a star. For simplicity, assume the points have integer entries. Each column of a 2-by-n 
matrix will be used to represent a point. The matrix AXY given below represents the list of points 
(1,4), (2,4), (4, 3), (1, 1), (5, 2). 


AXY 
1 2 4 1 = 5 
4 4 3 1 2 


A direct method of approaching this problem would be to construct an appropriate blank character 
matrix and to change the characters corresponding to each point into a star one at a time. This suggests 
a loop, since the number of points presumably can vary. A different approach is presented here. 

In the following example, the stars in the positions required to plot the points given in AXY are 
indicated on the left. The points in AXY are underlined in the lattice of (X,Y) indices given in the 
middle. On the right, single indices corresponding to the (X, Y) double indices are underlined: 


+ 1 2 3 4 5 


Y 

4| + (1, 4) (2, 4) (3, 4) (4,4) (5,4) Oo] 123 4 5 
3 ' (1, 3) (2, 3) (3, 3) (4,3) (5, 3) 5| 6 7 8 9 10 
2 ' (1, 2) (2,2) (3, 2) (4, 2) (5,2) 10 | 11 12 13 14 15 
1 | * 1) 203,040 6,D 15 | 16 17 18 19 20 


12345 xX 
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The correspondence between the double indices and the single indices is used by the plotting function 
for impressive efficiency. 

First notice that the table of single indices is given by 0 5 10 15 °.+ 1 2 3 4 5. 
That is, the single index corresponding to (X, Y) is given by the X value added to 5 times 1 less than 
the row number. But | less than the row number is just 4- Y. Therefore, the single index is given by 
X+5x4-Y. Thus, 1 corresponds to (1,4) since 1+5* 4-4 is 1, and 15 corresponds to (5, 2) 
since 5+5* 4-2 is 15. In general, if X is bounded by 1 and A, and Y is bounded by 1 and S, the 
single index corresponding to the point (X,Y) is given by X+RxS-Y. 

The function PLOTXY given below takes a list of points given as a two-row matrix and results in 
a character matrix plotting the points. The minimum X value is subtracted from the vector of X values, 
and one more is added so that X has minimum element 1; this convention saves space in the result. 
The Y data are adjusted similarly. A blank vector is created on line 3, and the positions given by the 
indices X+RxS-—Y are assigned stars on line 4. Line 5 reshapes the vector into the required matrix: 


Vv Z+PLOTXY XY:R;S;X;Y 
C1] Ref /X+1+XYC1;J]-L/XY1; ] Get X, A. 
[2] Se+[/Y¥*+1+XYL2;]-L/XY2; ] Get Y, S. 


[3] Z+(SxR)p' ' Let Z be a blank vector. 
4] ZUX+RxS-Y]e'*' Change blanks at X+RxS-Yto '«'. 
[5] Z+(S,R)02Z Reshape Z into a matrix. 
Vv 
AXY 


12 41 5 
4 4 3 1 2 


PLOTXY AXY 
x * 
* 
* 
* 
P 
01 2 3 4 5 6 7 8 9 10 11 12 13 14 
8 6 5 6 4 3 3 4 4 4 2 3 4 1 = 1 
PLOTXY P 
* 
* 6 
* 
s+ #€ke ke  & 
x * * 
* 
x * 


7.14 Example: Least-Squares Line Fitting 


In this section the line that best fits given data will be computed. The least-squares system solver of 
APL is introduced here to find that line. Finding the least-squares solution to a linear system was con- 
sidered in greater generality in Chapter 4. 
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First consider the problem of finding the line y = b + mx through two points — for example, 
through the points (2,5) and (4,3). This requires that b, m be found so that b + 2m = 5 and 
b + 4m = 3. This system can be written in AX = C matrix form as follows: 


Hiab) meebo bb oe Ey 


In APL the solution, X, to the system AX = C is given by CEJA. The symbol & is called quad-divide 
or domino and ts used dyadically to invoke the APL system solver function. For this example the 
matrix A and vector C are entered and the vector X that gives the solution is computed: 


At2 4 °.* Q 1 


C+5 3 
A 
1 2 
1 4 
X+CEA 
Xx 
71 


Thus the line through the points (2,5) and (4,3) is y = 7 — x. 

Next consider the problem of finding a line through several points. Typically, it is impossible to 
find a line through many given points. The problem now is to find the line of least-squares fit to the 
points. The same APL symbol domino as in CEJA computes the least-squares solution to a linear sys- 
tem AX = C. 

For example, in order to find the coefficients L of the line of least-squares fit to the data below, 
the expression L+-D[2; ]HD0E1;]°.+* O 1 is used. The data D give the tire width in mil- 
limeters and the mileage in miles per gallon for several makes of cars: 


D 
185 185 175 185 215 195 165 205 205 205 185 175 195 
32 28 31 29 27 27 34 29 30 24 31 36 = 31 


PLOTXY D 


* 


L+DC2;]HDC1;]°.+* 0 1 
L 
99.69969512 ~0.156402439 
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In order to plot the data from D and the line of best fit whose coefficients are in L , the function 
PLOTXYC from Exercise 17 will be considered. PLOTXYC takes a three-row matrix as its argu- 
ment. The first two rows give the (X, Y) points as were required for PLOTXY. The third row gives a 
positive integer that determines which of several different markers is to be used to plot the (X, Y) point 
given in the same column. For example, 


T 
1234564123 45 6 6 
1234566454232 i1 «3 
1111141222 2 2 2 O38 
PLOTXYC T 

° * 

° * 

so + 

* ° 
* ° 
Notice that the diagonal points (1, 1), (2, 2), .. . ,(6, 6) are plotted with the first marker, which is a star. 


The points on the opposite diagonal (1, 6), (2,5), ...,(6, 1) are plotted with the second marker, which 
is a jot. The single point (6, 3) is plotted with the third marker, which is a plus sign. 

Reconsider the tire width and mileage data D and the line of best fit to those data that have coeffi- 
cients given in L. Once the coefficients of the line are known, the Y values of the best fit line can be 
computed for the integer X values between 165 and 215. The matrix F/T below contains the X 
data in the first row and the rounded Y values in the second row. In order to plot the points in D with 
the first marker, the function PLOTXYC could be applied to the matrix D augmented with a bottom 
row of 1s: D,[1]1. In order to plot the points in F / T with the second marker, the function 
PLOTXYC could be applied to the argument F/7T,(11]2. Below, PLOTXYC is applied to 
(D,011]1),F/7,0112 so that the original D data are plotted with the first marker, a star, and 
the points in F / T are plotted with the second marker, a jot: 


X+164+151 Integers between 165 and 215. 
Ye (Xe.*0 1)+.*L The Y values on the best fit line. 
FIT+2 5190X,L.5+Y Rounded points on the best fit line. 


PLOTXYC (D,(1]1),F/7T,(1]2 


0000000 * 
* 000000 * 
0000000 *k 
* 000000 * 
* 000000 
* 0000000 * 


000 
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The character graphics used here give a crude plot of the best fit line, which is marked with the 
jots. Many versions of APL provide interfaces with high-resolution graphics devices that would allow 
much finer plots. 


7.15 Sampling 


Sampling from binomial, exponential, and normal populations is considered below. Each of these sam- 
pling problems is handled in different ways, but all use random selection of arrays of real numbers 
from the interval [0, 1]. The function RANREAL from Section 3.4 provides the required random num- 
bers. Its nght argument specifies the shape of the required array: 


Vv Z+RANREAL R 
C1] Ze1E°17x?Rp1E17 


Vv 


RANREAL 4 
0.8863190227 0.5946735862 0.2477868957 0.001728506318 


RANREAL 2 2 
0.2457823568 0.3120417967 
0.1431395057 0.4182674714 


7.16 Example: Sampling from an Exponential Population 


The inverse probability distribution method allows sampling from the exponential density. That is, you 
apply the inverse of the cumulative distribution function to a uniform random variable (see Lewis and 
Orav). The exponential density has the explicit cumulative distribution y = F(x) = 1 — e ™. Solving 
for x, you get x = (—1/A) In(1 — y). Given a random real, y, in [0,1], choose the corresponding x 
from the cumulative distribution to get a random selection from an exponential population. Notice that 
if y is randomly chosen in [0, 1], then so is 1 — y. The function SAMPEXP takes the number of repe- 
titions A as its right argument and the population statistic A, called LAM, as its left argument. The data 
are spread by a factor of 40 before plotting to get a more informative histogram: 


v Z+LAM SAMPEXP R 
C1] Z+(-+LAM)x@®RANREAL R 


Vv 


X«+3 SAMPEXP 25 

AVG X 
0.3359572623 

SD X 
0.3782190582 

HIST L40xx 


keaekek kk * * * * * * kk * * * 
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7.17 Example: Sampling from a Binomial Distribution 


Binomial distributions arise by counting the number of successes in N trials of an experiment with 
probability of success P on each trial. This is simulated by comparing a random real in [0, 1] to P; if 
the random real is less than or equal to P, then the trial 1s considered a success. 

The function SAMPB !N simulates the experiments for R repetitions of N trials using an inter- 
mediate R-by-N Boolean matrix with elements that are the result of each individual trial. Summing 
the rows of the matrix counts the number of successes in N trials as required. The left argument of 
SAMPB IN is NP, which is a two-element vector. The entry NP[ 11] gives the number N of trials 
of each experiment, and NP [ 2] gives the probability P of success in each trial: 


¥ Z+NP SAMPBIN R 
C1] Z++/NP[L2])2RANREAL R,NP[1] 


“5 .45 SAMPBIN 40 


1322223323321930213i12«i1 3 


HIST xX AVG xX SD X 
* 2.1 0.8711913446 


7.18 Example: Sampling from a Normal Population 


For normal populations, a third approach to sampling will be used. Rather than working back from a 
cumulative distribution or simulating experiments as in the previous two examples, the approach will 
be to approximate a normal population by averaging many selections from a uniform density. This is 
slow and only approximate. See Exercise 31 or Lewis and Orav for a better method. 

A short aside describes the arithmetic used. First, N«25 selections from a uniform distribution 
on [0, 1] are summed; then, -N+2 is added to get an expected value of 0. This is scaled by +N to get 
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an average of uniform random variables. The uniform density has standard deviation a = 1/ V12, and 
the average of N of these has standard deviation a/VN. Thus, an additional scaling factor of 
(12xN)* .5 is required to get a standard deviation of 1. Those factors are combined into a single 
factor of (12+N)+* .5 in SAMPNOR. Lastly, multiplying by the desired standard deviation and 
adding the desired mean changes that approximately standard normal random variable into one with the 
desired characteristics. 

The left argument of SAMPNOR is a two-element vector that gives the desired mean and stan- 
dard deviation. The right argument is the number of repetitions required: 


¥ Z+MS SAMPNOR R;N 
C1] Z+MST11+(MST21*((12+N)*.5))*x(-N+2)++/RANREAL R,N+25 


4 


X+0 1 SAMPNOR 50 


X015] Display a few entries of X. 
~1.27006884 1.06817433 ~0.442250897 ~0.400636199 0.629383956 
RANGE X 
~2.05546352 1.76279731 
AVG xX 
~0.219465735 
SD X 
0.85453993 
HIST L10xxX Scale by a factor of 10. 
* 
* xk 
* * * * xx 
* * x keke * xkexkwrk * 
x * * x keakekekekkkaeke kekekexkr xk xx * * 
Exercises 


1. Find the values of the indicated expressions involving the vector A+ 1 ~4 5 ~ 2 and the 
matrix B+3 493 567309 7°71 7 


(a) 3LA (b) OTA 
(c) [T/A (d) [/B 
(e) [4B (f) LB 
(2) T/T/B (bh) T/L/B 
(i) L/T/B 


2. The matrix S has the scores for four students on five exams. Write an expression to find the aver- 
age of the four highest scores for each student. 


S 
78 83 80 65 86 
89 91 87 75 90 
72 68 72 68 77 
52 65 71 70 73 
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12. 
13. 


15. 
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Give an expression for finding the average of the entries in a vector V after the highest and low- 
est entries are dropped. Test the expressionon V+4 5 8 6 6 7 8 6. 

Find the values of the following expressions. Let At 1 ~2 3 0, B+5 4 3 2, and 
C+5 0 73 21 5 4 5. 


(a) 4A (b) AL4A] 
(c) 4B (d) BL4B] 
(e) 4C (f) CL4C] 


Find the result of the following: 


(a) 6 3p 'AE/OU' (b) ‘'*',3 3p9'12' 
(c) p'JK','«! (d) 'ABCDEFGH'[2 301 4 5 2 3 2] 
(e) ' «'C1+'W'='WHY WILL WE?'] 


Use APL to find the mean, median, standard deviation, range, and order up the data: 
13 56 24 12 35 27 41 22 = 31. 
Give APL expressions to produce the following character arrays: 


(a) +toco0 (b) *0oc0 (c) *ec0 (d) +--===<<<<l Iii 
** 000 o* 00 * 000 
xk &*&* 00 oo* oO * 000 
kkk & 0 o0oOk keke 


Give an APL expression for determining whether the character vector SENT contains all the 
letters of the alphabet, ignoring case. 
Determine the result of the following expressions: 


(a) 2 3 4/1 2 83 (b) 0 1 2/1 2 3 
(c) 5/3 2 1 (d) (A<4)/A+2 2306 5 1 
(e) (A<4)/A*2 (f) (A>4)/A+*2 


What is required for vectors U and V so that U/ V makes sense? What is the shape of the result? 
In particular, does it depend on both U and V? 

The data V given below arise by mixing together data from three very distinct populations. Make 
a reasonable separation of the populations and find the mean and range of each. 


V 


40 67 65 25 66 41 21 45 43 42 63 43 69 75 46 71 44 43 59 76 43 


30 69 43 72 41 42 67 68 71 43 45 42 44 42 43 41 18 67 70 
43 62 26 68 44 39 40 44 44 65 42 64 16 69 70 72 13 21 69 
41 42 73 


Write an APL function MODE that computes the mode(s) of a vector of integral data. 

Write an APL function H/ STX that provides a histogram of data with unnumbered axes added 
to the histogram. Include the origin, indicating it with a plus symbol. Have a message displayed 
that gives the range of the data. See Section 3.12. 

Determine the result of the following expressions: 

(a) +\110 (b) *\110 (c) -—\110 

(dd) F\2 072153272 73 

) L\2 072153272 73 

Determine the result of the following for A*2 392 3 1 0 1 4: 

(a) +\A (b) x\A (c) +XA (d) xXA (ec) [\A (f) LNA 


16. 


18. 


19. 
20. 


21. 


27. 


Ise 
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Give an APL expression for the vector of partial sums of the reciprocals of the factorials of the 

integers 0 to 9. Execute it. 

Write an APL function PLOTXYC that plots points but allows several different markers to be 

used. The input should be a 3-by-N matrix. The first two entries of each column give the (X, Y) 

coordinates of a point, and the third element in the column is a digit 1 to 9 specifying which 

marker from among '*°+Ovx#.' should be used. (Hint: Modify the function PLOTXY in 

Section 7.13 in a manner suggested by the following example: 

WL2 3 6G)]e'*«etovx#, ‘'[2 7 8] forW+10p' '.) 

Write an APL function PLOTF | T that does a scatter plot of data and also plots the least-square 

fit to the data. (Hint: Use Exercise 17.) 

Write an APL function SAMPUN / that samples a uniform random variable on [A, B] R times. 

Write an APL function PLOT 2FCT that plots two functions FCT 1 and FCT 2 on the same 

scale. Input the desired x interval and number of points at which the functions should be evalu- 

ated. Round the function values to the nearest integer. (Suggestion: Use PLOTXYC from Exer- 

cise 17 and the function PART / T | ON from Exercise 3.9. 

(a) Write an APL function CORF | T that gives the y intercept and slope of the line of least- 
squares fit to a given list of (x, y) pairs of data; catenate to that the sample correlation 
coefficient for that fit. 

(b) Use CORF / T on the data D in Example 7.14. 

Write an APL function SCH / ST that produces a histogram scaled by a vertical factor of M. For 

example, if M+ 10 it will plot two stars in a column corresponding to a frequency in the range 15 

to 24. 

Sample 100 elements from a binomial distribution with n = 7, p = .2. Compute the mean and 

standard deviation and display your results in a histogram using SCH / ST from Exercise 22. 

Sample 100 elements from an exponential density with A = 2. Compute the mean and standard 

deviation and display your results in a histogram using SCH! ST from Exercise 22. 

Sample 100 elements from a normal population with uw = 100, o = 12. Compute the mean and 

standard deviation and display your results in a histogram. 

Use the function SCH! ST from Exercise 22 to produce a histogram of 1000 elements sampled 

from a normal distribution with «1 = 0 and o = 10. Use a vertical scale factor of 10. (Remark: It 

is possible that your workspace is too small to sample 1000 elements at once. In that case make 

several samples of smaller size and then combine them to get a sample size of 1000.) 

Repeat 10 times the experiment of averaging a sample of 25 elements from a normal population 

with « = 10 and o = 2. What is the mean and standard deviation of those averages? 

(a) Write an APL function that samples R times from a population with density function: 


l 2 
= — _ = = 
f(x) rr (30x — x*) for 0 = x = 30 


(Hints: A loop is appropriate. SAMPUN | from Exercise 19 may be used.) 

(b) Sample 50 times from the population in (a) and display your results in a histogram. 

(a) Sampling from discrete populations can be handled by computing a cumulative distribution 
and then selecting the item corresponding to the first element of the cumulative distribution 
greater than a random real from [0, 1]. Write an APL function that samples R times from a 
given discrete distribution. (Hint: You may want to use a loop and RANREAL.) 

(b) Sample 50 times from the following distribution and plot your results with a histogram: 


98 
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(a) Write an APL function that evaluates the probabilities of a Poisson distribution P(x, d) for a 
vector of x arguments. 

(b) Find by experimenting a value N so that the cumulative Poisson distribution from 1 to N 
with A = 5 is 1 to within machine precision. 

(c) Write an APL function that samples A times from a Poisson distribution with A = 5. (Hint: 
Use Exercise 29(a).) 

Sampling from normal distributions may be accomplished more accurately and efficiently by 

using the fact that a binormal distribution has an exact formula for the distribution for the radius 

p, where p* = X? + X3 and the X; are standard normal. In particular, p = —2 In(U) gives ran- 

dom radii from a binormal distribution when U is uniform on the interval [0, 1]. Write a function 

SAMPNORM that produces RA samples from a normal distribution with specified mean and 

standard deviation. (Hint: Compute a random angle, use the given random radius, and compute 

a random X, from those.) 


More Array Manipulation 


This chapter introduces a variety of APL functions for manipulating arrays. They are take, drop, ravel, 
replicate, expansion, reverse, rotate, dyadic transpose, and laminate. These functions are used for se- 
lecting subarrays out of an array, filling out arrays, or rearranging data within arrays. Examples that 
use these tools include polynomial addition, polynomial multiplication, matching a given distribution, 
and construction of banded matrices. The array manipulation tools introduced here will greatly enhance 
your ability to construct natural and general solutions to computational problems. 


8.1 Take and Drop on Vectors 


APL provides primitive functions take and drop, denoted ft and |, respectively, which are used for 
selecting data from the ends or corners of arrays. When V is a vector and Nis a positive integer, NT V 
takes the first N entries and results in a vector containing those entries. Likewise NJ V drops the first 
N entries and results in the remainder of the vector V. For example, 


Sft2 468 1012 14 16 18 271 02 4 1 
246 8 10 1 0 

512 468 1012 14 16 18 241102 4 1 
12 14 16 18 24 1 


When the integer N is negative, the elements are selected or deleted from the end of the vector V 
rather than from the beginning. When the magnitude of WN is larger than 0 V, zeros or blanks are pad- 
ded onto vectors to fill them out to the required length, N. This use of take is called overtake. Zeros 
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are used to fill out numeric vectors and blanks are used to fill out character vectors. Examples are 


"2134567 “213 4567 
67 345 
713.4567 (7tteet) te! 
3456700 ' 
"713 4567 “51 'HI JOE’ 
0034567 | JOE 


8.2 Example: Polynomial Addition 


Let A and B be vectors of the coefficients of polynomials in increasing degree order. If the polynomials 
are the same degree, then pA is 0B so that A+B is defined and represents the sum of the polynomi- 
als. If the polynomials have different degrees, then one of them needs to be padded with some zero 
terms. Overtake makes that easy. 

Consider the example of adding x — 3x’ to 3 + 4x — x* + x*° + 2x’, say 


A+O0 1 “3 
B+3 4 “11 2 
OTA 

0173 0 0 
B+StA 

35 “412 


The last result is the vector representing the sum of the polynomials as desired. The function 
POL YADD takes vectors representing polynomials as arguments and results in a vector representing 
the sum of the polynomials. POL YADD uses the maximum function from Section 7.2: 


v Z+A POLYADD B;:M 
C1] M+(oA)ToB Get the maximum length. 
[2] Z-(MtA)+MtB 


3 4 ~1 1 2 POLYADD 0 1 “3 1 2 3 POLYADD 1 ~2 
35 “4 1 2 20 3 

0 1 °3 POLYADD 3 4 11 2 1 1 1 POLYADD 1 0 0 1 
35 41 2 211 1 


8.3 Take and Drop on Matrices 


The take and drop functions can be used with a matrix right argument if the left argument is a two- 
element vector. The result is a “corner” of the matrix argument. Negative signs in the left argument 
indicate that selection is from the end of the corresponding axis. Notice there are several possibilities 
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for selecting negative signs; for example, when A is a matrix 2 ~ 3TA< selects the elements from the 
first two rows and the last three columns of A: 


A 3 3TA 3 3TA 
12333 3 12 3 3.3 3 
45633 3 4 5 6 3 3 3 
78933 3 789 3.3 3 
000100 
00001 0 ~3 3TA 3 “3TA 
00000 1 00 0 10 0 

00 0 01 0 
00 0 00 1 

2 BTA 331A 0 31A 
12333 3 0 0 10 0 3.3 3 
456333 0 0 01 0 3.3 3 

00 1 3 3 3 
10 0 
01 0 
00 1 

~2 OLA 241A 
1233 3 8 3 3 
4563 3 3 0 0 
78933 3 1 0 
000100 0 1 


Notice that the expression 2 8 Tf A is an overtake — two columns of Qs are padded onto the end. If the 
left argument of take has a O entry, the result is empty. For example, 3 OTA is an empty matrix with 
shape 3 0. 


8.4 Ravel 


The monadic use of a comma provides a function that strings out all of the data in a given array as a 
vector. This function is called ravel. For example, 


R S T 
102 245 6 8 5 
11 1 
oR oS oT 
23 5 (Empty vector.) 
,R ,S iT 
10211 1 245 6 8 5 
,R 0,8 0,7 
6 5 1 


Notice that applying ravel to a matrix results in a decrease in dimension, but applying ravel to a 
scalar results in an increase in dimension. One use of ravel is for changing a scalar index into a vector 
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index. In particular, this can be used to easily obtain a column matrix from a matrix; for example, 


Q Q[;2] QC; ,2] 
1 2 3 4 5 2712 2 
6 7 8 9 10 7 
111213314 15 12 
0Q[;2] 0Q[;,2] 
3 3 1 


8.5 Replicate, Compression, and Expansion 


Replication was considered for vectors in Chapter 7 and is reviewed and extended here. The left argu- 
ment gives the number of repetitions of the corresponding entries of the right argument to be placed in 
the result. In the case that the left argument is Boolean, this function is called compression: 


X Y 
253 14 4 123 4 

13 12 0 0/X Y/Y 
255531 1 12233:34¢4¢44 

(X53)/X 101 0/Y 
23 1 1 3 


This function extends to having matrix right arguments by having each entry of the vector left ar- 
gument specify the number of repetitions of the corresponding columns of the right argument. Using # 
instead of / with matrices allows replication of rows instead of the columns. That is, / designates 
replication along the last axis, and # designates replication along the first axis: 


A B 
1 2 3 4 20112 
5 6 7 8 3210 1 
9 10 11 12 

201 0/A (2=BCl1;])/B 
1 1 8 2 2 
9 5S 7 3 1 
9 9 11 

(2 0 1)4A 2 17B 
1 2 3 4 20112 
1 2 3 4 20112 
9 10 11 12 3210 1 
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Expansion is like compression in that its left argument is Boolean. It is designated by a back- 
slash \. For vector right arguments, its left argument contains a 1 in any position where an entry from 
the right argument is used and a OQ in any position where a fill entry is inserted. The fill characters 
are Os for numeric arrays and blanks for character arrays as was the case for overtake: 


X 10114 1\X 

23 4 4 203 4 4 
1 011001 1 0\x 
0 02300440 


Expansion, \, may also be used with matrices as a right argument and with the left argument 
being a Boolean vector indicating where to insert columns. Columns of Qs or blanks are inserted in the 
positions corresponding to a 0 of the left argument. The slash overstruck with a minus sign, *, is used 
to expand so that rows are inserted. That is, \ is used to designate expansion along the last axis, and * 
designates expansion along the first axis; for example, 


C 1101 0 1\C 100 1*C 
12 3 4 1203 0 4 123 4 
59 6 7 8 5 607 0 8 000 0 
000 0 
5 6 7 8 
D 11010 1\D 100 1*D 
ABCD AB C D ABCD 
EFGH EF GH 
EFGH 


8.6 Example: Constructing Data with a Given Distribution 


Consider the problem of producing a data set having a given distribution. For example, suppose you 
would like to construct a data set, D, with the following bimodal distribution. Unlike other sections in 
this chapter, this section assumes you have read Section 7.8 about H/ ST and Section 6.1 about deal: 


HIST D 
* 
kek * 
xk kek 
kkeaekaketk * kKkeKakkak Kk KK 


2 * * 


The vector of desired frequencies, FREQ, can be determined by counting the number of asterisks 
in each column. Then replicate can be used to produce a data set that has the correct distribution. 
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Lastly, deal can be used to rearrange the data into random order: 


FREQ-5 44222%121%1%%1%#%1%%1%%t1%1%1 1222232033421 «~+121 
101 1 

C+FREQ/1p FREQ 

C 
11171142222939383283<4+4«5 5667 8 89 10 11 12 13 14 15 

16 17 17 18 18 19 19 20 20 21 21 21 22 22 22 23 23 23 24 

24 24 24 25 25 26 27 28 30 31 


D«+CL(0C)?9C] Randomize indices using deal. 
D 

24 417 12 22 31 5 25 1 28 10 2 23 26 8 4 22 27 20 9351 2 25 
16 21 62192 7113141818191 «3 23 22 1 «24 8 13 24 1 
21 24 15 30 3 23 20 21 17 6 3 


HIST D 
* 
kkk * 
kkk keke 
kaeraekxee * kaekekKkek kK 


Keke ae KR KKK RK KK KKK KK KKK KKK KKK xk 


8.7 Reverse 


The monadic APL function reverse, denoted 9, is used to reverse the order of the entries along the last 
axis of an array. The symbol ® is used to indicate the reversal is along the first axis: 


V OV eV 
123 4 4321 4321 

A OA eA 
123 4 432 1 5 6 7 8 
5 6 7 8 8 7 6 5 123 4 


For a vector V the first and the last axes are the same, hence 9 V is the same as © V. For a matrix 
A, however, 9A reverses the order of the columns and @A reverses the order of the rows. 

A vector is a palindrome if it is the same after its entries are reversed. Examples of palindromes 
are 'MADAM', 'OTTO', and 1 4 6 4 1. An easy test for whether a vector is a palindrome 
uses ® from this section and A from Chapter 5. A vector V is a palindrome if and only if A/ V=9V 
yields a 1. The inner product VA . =9 V is an equivalent test. 


8.8 Rotate 


The data in arrays can be rotated into new positions with the dyadic function rotate. When V is a vec- 
tor and N is an integer, the entries of V are rotated N positions by N®V, which is read N rotate V. 
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The entries are moved off the front and onto the back of the vector when N is positive and vice versa 
when WN is negative: 


V 20V 40V 
2357 11 5 7 11 2 3 1123 5 7 
~10V OOV 6OV 
1123 5 7 235 7 11 357112 


The row entries of a matrix A may be rotated by using NA, where N is a vector with length 
matching the number of rows. The entries of N give the number of positions the corresponding row of 
A is rotated. In a similar manner, N@A can be used to rotate column entries. Notice that when the left 
argument is a scalar it is extended to be a vector of conforming length: 


A 2 1 306A 
1 2 3 4 0 0 3 4 0 0 1 2 
5 6 7 8 O 0 6 7 8 0 0 5 
9101112 0 0 12 0 0 9 10 11 
0 “1 ~20A 209A 
1 2 3 4 0 O 3. 4 0 0 1 2 
0 5 6 7 8 Q 7 8 0 O 5 6 
0 9 10 11 12 1112 0 0 9 10 
10101 0eA 1eA 
5 2 7 4 0 0 5 6 7 8 QO QO 
9 611 8 90 0 9101112 0 0 
110 312 0 0 1 2 3 4 0 0 


8.9 Example: Polynomial Multiplication 


Here the problem of multiplying two polynomials is considered. You need to compute all of the pair- 
wise products of the monomial terms; this may be organized into a table. For example, to evaluate the 
product (3 + 2x + x’)(2 + x — 5x’ + 3x °), the following table could be computed: 


2 x —5x? 3x? 


9x3 
4x 2x? —-10x? 6x’ 
2x? x? —5x* 3x? 


Notice that like powers occur on the ascending diagonals. Hence, summing along those diagonals 
yields 6 + 7x — 11x? + x* + 3x° as the final answer. 
In APL the solution can be accomplished by first creating a table of products: 


U+3 2 1 Coefficients of one polynomial. 
V+2 1 75 83 Coefficients of the other. 


Uco,xV Make a times table. 
6 3°15 9Q 
4 2°10 6 
2 1 "5 3 
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To effect the summation along the diagonals, entries are rotated to line up the coefficients of like 
powers in columns. This requires some OQ padding so that high-degree terms are not rotated around to 
columns of low-degree terms: 


Uc.xV,0x11U Some zero padding. 
6 3°15 9 QO QO 
4 2°10 6 0 0 
2 1 "5 3 0 QO 
(1-1pU)0U°.xV,0x1dU Rotate the rows. 
6 3 715 9 O O Columns contain entries from 
0 4 2°10 6 O ascending diagonals. 
0 O 2 175 8 


+4#(1-1pU)0U°.xV,0x11U Add like terms. 
6 7 “1101 83 


This treatment of polynomial multiplication is appealing because it solves a commonly occurring prob- 
lem, uses an intermediate higher dimensional array, and achieves a concise solution. 


8.10 Dyadic Transpose 


The monadic use of transpose on a matrix was considered in Section 4.11. The expression &A inter- 
changes the rows and columns of A. Transpose is also a dyadic function; dyadic transpose is a general- 
ization of monadic transpose. The expression 2. 1 &A is equivalent to &A; that is, the first and second 
indices of A are interchanged. The expression 1 2A yields A since the first index remains in the 
first position and likewise for the second index. The expressions 1 1&A and 2 2A result in the 


elements of A whose indices match (some systems accept only 1 1&A); that is, the diagonal entries 
of A: 


A aA 218A 
23 5 7 211 211 
11.13 17 19 3.13 3.13 
9 17 5 17 
7 19 7 19 

1 28A 1. 18A 2 28A 
2 3 5 7 213 213 


11.13 17 19 


A comparison with standard mathematical notation is helpful for understanding the dyadic trans- 
pose. R is used to designate the vector or matrix results of the transposes of the matrix A: 


APL Notation Standard Mathematical Notation 


a. } oe ni _ A‘; Where each index runs 
R+1 1A R _ A. over the maximum 
R+2 2A R,=A, meaningful range. 


8.11 Transpose on Higher Dimensional Arrays 


For higher dimensional arrays, there are many ways of selecting the list of indices used with 
dyadic transpose. Notice that the monadic transpose reverses the order of the indices. Consider 


A+2 3 49124: 
A 
12 3 4 
5 6 7 8 
910 11 12 
1314 15 16 
17 18 19 20 
21 22 23 24 
1 3 28A 
1 5 9 
2 6 10 
3.7 11 
4 8 12 
13.17 21 
14 18 22 
15 19 23 
16 20 24 
11. 18A 
1 18 
1 1 2A 
1 2 3 4 
17 18 19 20 


A comparison with standard mathematical notation is again helpful for understanding dyadic transpose. 


APL Notation 


R+3 2 128A 
R+1 3 2A 
R-1 1 18A 
R-1 2 28A 


Ss) 


8.11 


RA 


1 2 1 
9 


14 18 22 


Transpose on Higher Dimensional Arrays 


RA 


Standard Mathematical Notation 


R 


ijk 


= Ajj 


ijk 


ikj 


Where each index runs 
over the maximum 
meaningful range. 


3 2 18A 
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8.12 Laminate 


Laminate is an APL function that takes two arrays with the same shape and attaches them along a new 
axis of length 2. The new axis is indicated with a fractional axis index. The result is an array of 
dimension one more than its arguments. 

If U and V are vectors of length N, then U,[ .5] Vis the 2-by-N matrix with rows U and V 
and U,{1.5]V is the N-by-2 matrix with columns U and V. Notice that if one argument is a 
scalar, the scalar argument is extended to a vector of conforming length: 


U V V,C.5]8 
123 4 235 7 235 7 
8 8 8 8 
U,C.5]V U,C1.5])V V,C1.5]8 
123 4 1 2 2 8 
235 7 2 3 3 8 
3.5 9 8 
4 7 7 8 


Recall that since U and V have only one axis, U , [1 ] V is catenation along that axis, yielding 
123 4 2 3 5 7.Notice . 5 is before 1, and U,[£.5]V laminates Uto V so that the new 
axis of length 2 is before the first and only axis of U and V. Likewise 1.5 is after 1, and 
U,(1.5]V puts the new axis of length 2 after the old first axis. 

For matrices there are more possibilities. If A and B are matrices of the same shape, they may be 
laminated along a new axis before, in between, or after the two existing axes: 


A B oA 
1 2 3 4 23 2 3 3.4 
5 6 7 8 323 2 
9101112 23 2 3 
0A,C.5]B 0A,C1.5]B 0A,C2.5]B 
23 4 3 2 4 3 4 2 
A,{.5]B A,{1.5]B A,{(2.5]B 
1 2 3 4 1 2 3 4 1 2 
5 6 7 8 2 3 2 3 23 
9101112 3 2 
5 6 7 8 4 3 
2 3 2 38 3 2 3 2 
3 2 3 2 5 3 
2 3 2 8 91011 12 6 2 
3 2 3 7 3 
8 2 
9 2 
10 3 
11 2 
12 3 
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Higher dimensional arrays may also be laminated along a new axis before, in between, or after the ex- 
isting axes. 


8.13 Example: Constructing Banded Matrices 


Diagonal and banded matrices occur frequently. They are used, for example, in computing splines and 
in many numerical methods for solving partial differential equations. Although it is possible to con- 
struct these with the primitive functions introduced in Chapter 2, it is convenient to construct them 
using laminate, replicate, rotation, drop, and take. 

First consider the problem of constructing an N-by-N diagonal matrix with diagonal entries given 
in a vector V of length N: 


V 
235 7 
V,C1.5]0 1 3/V,01.5]0 (1-14)01 3/V,01.510 
2 0 200 0 200 0 
3 0 30 0 0 03 0 0 
5 0 5 0 0 0 005 0 
7 0 700 0 000 7 


Next consider the problem of constructing a banded matrix — that is, a matrix with many descend- 
ing diagonals composed entirely of Os. Here a 5-by-5 matrix C with 3s on the diagonal. 1s on the 
superdiagonal and subdiagonal, and Os elsewhere is constructed: 


Ar5 6p06T1 3 1 B+-(1-:15)0A C+O0 1/B 

A B C 
131000 13 1000 3100 0 
131000 013 100 13 100 
131000 0013 10 013 10 
131000 00013 1 0013 1 
131000 10001 3 0001 3 
Exercises 


1. Consider the vectorW+1 1 2 3 5 8. Determine the result of the following APL expressions. 


(a) 4TW (b) 4!1W 
(c)  4TW (d)  4!1W 


(e) B8TW (f) “8TW 
(g) OTW (h) OLW 
(i) 8SLW (ij) 81W 


2. (a) Give conditions on the arrays A and B so that A t B makes sense. 
(b) What is the shape of AT B”? 
(c) Give conditions on A !B so that it makes sense. 
(d) What is the shape of A! B” 
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Let A+5 690 1 2 3 4. Determine the result of the following expressions: 


(a) 3 4TA (b) 3 “4TA 
(c) “3 4TA (d) “3 “4TA 
(e) 3 41A (f) 3 “4A 
(g) ~3 41A (h) ~3 “414A 
(i) O 41A (j) O “414A 


Suppose a polynomial in two variables is represented by a matrix so that the row corresponds to 
the power of x and the column corresponds to the power of v: 


A 
1 0775 1 O 
2 3 8 x12 3 8 


Thus, A represents | + ~Sv7 + 2x + 3xv + 8xv°. 

(a) Write an APL function that takes two polynomials in two variables represented by matrices 
and results in the sum of the polynomials. No assumptions about the degrees of the poly- 
nomials is to be made ahead of time. (Hint: See Section 8.3.) 

(b) Use the function from part (a) to add | + 3xv7 + vy" and 7 + 3x + 4x7 + 2xv? + 3x’y’ 

LetA+3 49112 9 BreiZ? 9% CS. Determine the result of the following APL expressions: 


(a) ,A (b) 9,A 
(c) ,B (d) 9 ,B 
(e) ,C (f) p,c 
(g) A[3;] (h) pAL3; ] 
(i) AL ,3;] (j) pAC,3;] 


Give an APL expression that gives the shape of , A for any array A in terms of pA. 

Modify POL YADD given in Section 8.2 so that it works with 0 degree polynomials that have 
been input as scalars rather than length 1 vectors. 

LetW+1 1 2 3 5 8. Determine the results of the following APL expressions: 


(2) 101 01 0/W (b) 121 2 2 2/W (c) W/W 
1101101 1\W () 0117110014 1 1 0\W 


Let Ac3 5090 1 2 3. Determine the results of the following APL expressions: 


(a) 12121/W (b) 10001/A ~~ (ce) 1 2 834A 
d@d 100100100100 1\A~~ (e) (1391 0 0)\A 
(ff) 101 414A 


Consider replication and expansion for a matrix A and an array U. What conditions on A and U 
are needed so that the following make sense? 


(a) U/A (b) U\A (c) UAA (d) UNA 


Define an APL function EXPAND that expands a numeric matrix so that all the given entries are 
separated by a row and column of zeros. For example, 


23 4 5 203040 5 
5 3 0 1 becomes 000000 0 
121 1 503 0001 
000000 0 
102010 1 
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12. Construct data vectors that will have the following histograms. (Hint: See Section 8.6.) 


13. 


18. 


21, 


(a) * (b) ++ 
* kkk 
x* keekeek tk 
xk x i a i a oe a a 2 
xxerk* xk i Se i i i 
keke«erk 


xekekrk * 
kekekekekekek kek 


eee kke kek Ke Kk KE * 


(a) Suppose A is a Boolean matrix and the number of rows that are palindromes is to be com- 
puted. Give an APL expression for computing that number. (Hint: Use reverse. ) 

(b) Generate a random 200-by-10 Boolean matrix. How many rows are palindromes? Display 
the rows that are palindromes. 

Write an APL function POL YMULT that computes the product of two polynomials. Make the 

arguments two vectors giving the coefficients of polynomials in increasing power order and 

the result a vector giving the coefficients of the product of those polynomials. See Example 8.9. 

What happens if the function in Exercise 14 is run on vectors giving the coefficients in decreasing 

power order? 

LettW+1 1 2 3 5 8. Determine the results of the following APL expressions: 


(a) 20W (b) ~“20W (c) OW (d) OW 
Let A+3 500 1 2 3. Determine the results of the following APL expressions: 


(a) 0 1 20A (b) 0 12 3 40A 
(c) 0 ~1 ~20A (d) 190A 
(e) OA (f) OA 


Consider rotate and reverse on a three-dimensional array. Let Ac 2 3 49124. Experiment 
with the following expressions. Try to predict the results of your experiments. 


(a) (2 391 2)0A (b) (2 491 2)0L[L2]A 
(c) (3 491 2)0L1]A (d) $A 

(e) OA (f) OLIIJA 

(g) OL2I]A (h) OL3IA 


(a) Use your experience with Exercise !8(a) to give conditions on arbitrary arrays R and A so 
that ROA is defined. 

(b) In that case, what is the shape of ROA? 

Let URL «16807 and construct an array that gives a simulation of the number of hours spent 

each day grading linear algebra assignments for three students: 


A«(2=?3 14 7p2)x?10 0 5°.+14 795 2 4 2 4 2 1 


Each column represents the day of the week, and the rows give the week of the 14-week semes- 
ter. The three blocks give the hours worked by Angela, Sherrie, and Sharad, respectively. Ex- 
periment to find an APL expression that displays the data so that each block is a week. the 
columns are still days of the week, and the rows of each block correspond to the students. 
letB+1 2 °.x 4 5 6 ©.- 1 2 3 4. Experiment with the following APL expres- 
sions. Try to predict the results of your experiments. 
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(a) 1 2 38B  (b) 1 3 2B 
(c) 3 2 18B (d) 3 1 2aB 
(e) &B (f) 1.1 28B 
(2) 22 18B  (h) 1 2 18B 
ij) 1 °1 188 


Write an APL function D/ AG that takes a numeric vector argument V and results in a diagonal 
matrix with the given vector on the diagonal. 
Suppose A and B have shape 5 6. What are the shapes of the following? 


(a) A,B (b) A,L.5]B 
(c) A,L1J]B (dq) A,{1.5]B 
(ec) A,L2)]B (f) A,{C2.5]B 


Suppose A and B have shape 5 6 /. What are the shapes of the following? 


(a) A,B (b) A,L.5] 
(c) A,CLIIB (dq) A,{1.5 
(ec) A,L2)]B (f) A,[2.5 
(g) A,[3]B (hy) A,C3.5]B 


Write an APL function, TR/D1IAG, that produces an N-by-N tridiagonal matrix. It should take 
a three-element vector. W, as right argument, where W[ 1] gives the common subdiagonal en- 
tries. WE 2] gives the common diagonal entries, and WL 3] gives the common superdiagonal 
entries. The left argument should be the size N. 


B 
JB 
JB 


Sorting and Coding 


This chapter considers the sorting of arrays according to several criteria. It treats alphabetization as a 
simple application of sorting once the character data are represented as positions in an alphabet. It in- 
troduces modular arithmetic and uses it to modify the alphabetizing scheme. Construction of finite field 
tables is straightforward with modular arithmetic, and the field of order 2 is interpreted in terms of 
logical functions. Data can be represented in other bases and reinterpreted as numbers. As an example, 
ordinary text is encoded as a binary string to which the simplest error-correcting Hamming code is 
applied. 


9.1 Grade up, Grade Down 


The APL grade up function, denoted 4, results in a list of indices. If X is a vector with distinct entries, 
then #X is the vector containing the index of the smallest element of the vector X, followed by the 
index of the next smallest element of X, and so on, up to the index of the largest element of X. If the 
vector X has repeated entries, the indices of the repeated entries appear in increasing order. In 
Section 7.4 the APL idiom X [4X ] was used to order the elements of the vector X. For example, 


U V 
62309 2.4 5 2.4 2.4 6 5 
4U AV 

4263 i 5 23 15 4 
UL 4U] V[L4V] 
022.4369 2.42.45 5 6 


Likewise, the grade down function, denoted ¥, results in a list of indices, with the indices of the 
larger elements first. If the vector has repeated entries, the indices of the repeated entries appear in in- 
creasing order: 


vU vV 
5 13 62 4 415 2 3 

UC vU] VEivV] 
963 2.4 2 0 655 2.4 2.4 


Notice that U[ #U] is 9U([¥U] and likewise for V. However, 4U is 0¥U, and 4V is not 
ov V. In general if a vector V has repeated entries, then 4 V and $¥ V are different. 
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Iterating the grade up function produces the ordering ranks of the entries of the argument vector: 


U V 
62309 2.4 9 2.4 2.4 6 5 
4U AV 

42631 5 2315 4 

AAU AAV 
5241 6 3 3125 4 
vU vV 
5 13 6 2 4 415 2 3 
4vU 4vV 
25361 4 245 1 3 


Notice that 44 V gives the rankings of the entries of V in increasing order, with ties decided by 
index order. In particular, the 6 in V is the fifth lowest entry of V. The rankings in decreasing order 
are given by 4¥V. 


9.2 Grade up, Grade Down on Matrices 


Many versions of APL support monadic grade up on matrix arguments. Grade up applied to a matrix 
gives the indices of rows ordered lexicographically. Thus, if A is a matrix, #A is a vector of row in- 
dices, where the first entry is the index of the row that is smallest in the following sense: A row 
Al! ; 1] is smaller than AL J ; ] if in the first position in which they differ A[ / ; ] is smaller or if 
the row AL / ; ] is identical to AL J ; ] but / is less than J. Grade down is similar. For example, 


A AA AL4A;] 


102 5 3146 5 2 101 14 
381 1 102 5 
101 1 102 5 
102 5 211 1 
312 1 312 1 
211 1 381 1 
AlL4A[;1];] AC4A[;3 4];] ALVA; ] 
102 5 38 1 1 3.81 1 
101 1 101 1 3.12 1 
102 5 2111 2111 
211 1 3121 102 5 
381 1 102 5 102 5 
312 1 102 5 101 1 
AL4A[;1 3]; ] AL4A[;3 1];] 

101 1 101 1 

102 5 2111 

102 5 381 1 

211 1 102 5 

381 1 102 5 

3.12 1 312 1 
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Notice that AC 4AL;11; 1] orders the rows of A by ordering the first column of A in the 
grade up sense. The other columns are ignored for purposes of determining the order. Likewise, 
AL4AL:3 4]: ] orders the rows of A so that the rows of the third and fourth columns are lexico- 


graphically ordered. 


9.3 Example: Manipulation of Grade Point Average Statistics 


Consider a table of the grade point averages GPA, of the Computer Science Club members. The first 
column gives the student number, the second column gives the faculty identification number of the stu- 
dent’s advisor, the third column gives the semester GPA, and the last column gives the cumulative 
GPA. These can be ordered several ways. The expression GPA[ 4GPAL[ ; 2]; ] groups the infor- 
mation by advisor. The expression GPA ,4¥GPAL[ ;4 31] gives the table plus a last column that 
gives the rankings of the students according to highest cumulative GPA with ties settled by looking at 
the semester GPA: 


4021 
4034 
4069 
4080 
4081 
4087 
4089 


4021 
4087 
4069 
4081 
4089 
4034 
4080 


4081 
4021 
4087 
4069 
4089 
4080 
4034 


9.4 Index Relative to a Vector 


GPA[L¥GPAL ;3 


Of 


MoO@a—"*WN FA 


—~ POM @® W 


mPOA NO WWAW |e 


hOoM® hw — 


> 


~ PO NMMNM WO... 


PMO @WNMNM -~ &W 
mooOoanoOoaws 


PO ~*~ PO WN ND ®W 


MPMOOoOnNOaOoo & 


OMPOnNoOoortht a 


Dad 
Dnesd 


4 3];] 


4087 
4089 
4034 
4069 
4080 
4021 
4081 


4081 
4021 
4069 
4087 
4080 
4089 
4034 


4021 
4034 
4069 
4080 
4081 
4087 
4089 


GPAL4GPAL[ ; 2]; ] 
9 


18 3.5 2. 
18 2.4 2.2 
19 2.1 1.8 
19 3.2 2.9 
19 1.6 2.2 
25 4 3.4 
25 3.2 3.5 
GPA[¥GPA[;:4]:] 
25 3.2 3.5 
25 4 3.4 
19 3.2 2.9 
18 3.5 2.9 
19 1.6 2.2 
18 2.4 2.2 
19 2.1 1.8 
GPA ,4¥GPA[ :4 3] 
25 4 .4 2 
19 2.1 1.8 7 
19 3.2 2.9 4 
19 1.6 2.2 6 
25 3.2 3.5 1 
18 3.5 2.9 8 
18 2.4 2.2 £5 


The dyadic use of iota, 1, provides a method of finding the indices of data in a reference vector. The 
left argument is the reference vector, and the right argument is data whose positions in the reference 
vector are desired. For each entry in the right argument, the index of the first occurrence of that ele- 
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ment in the left argument is given. If an entry in the right argument does not appear in the left argu- 
ment, then an index | larger than the greatest meaningful index of the left argument is given for that 
entry. The expression Ai W is read “the A indices of W” or “the indices of Win A”: 


857915 8 5 7 9[2] 
2 5 

857918 9 8 8 5 7 9[1 4 1] 
14 1 8 9 8 

'ABCDEFG' \ 'BEG' "ABCDEFG'([2 5 7] 
25 7 BEG 

"ABCDEFG' , 'LEG' "ABCDEFG' . 'LOT' 
8 5 7 8 8 8 

A 23 5 711 1A 
277 14 4 
5 9 5 3 6 3 


9.5 Example: Alphabetization 


Grade up and index can be used to alphabetize a list of names. First dyadic iota is used to get a matrix 
of numbers from a matrix of letters. Grade up is then applied to the numeric matrix. Consider the 6-by- 
6 matrix of names N and the alphabet ALF. Notice that a blank is the first entry in ALF: 


ALF+' ABCDEFGH! JKLMNOPQRSTUVWXYZ ' 
N+6 69'JOHN BILL THOMASJASON JACK EDWARD ' 


N ALF\N NC4ALF.N; J 
JOHN 1115 9415 «41~ «1 BILL 
BILL 310 1313 1 1 EDWARD 
THOMAS 21 91614 2 20 JACK 
JASON 11 220 1615 = 1 JASON 
JACK 10 2 412 1 = «1 JOHN 
EDWARD 6 5 24 219 5 THOMAS 


9.6 Example: Removing Duplicates and Frequency Revisited 


Dyadic iota yields interesting information when both arguments are the same vector. The resulting list 
of indices gives the indices of the first occurrences of any given element. These first occurrences are 
notable since their indices match the indices of index generator. Duplications in a vector X may be re- 
moved by selecting only the first occurrence of each element; namely, those elements of X that corre- 
spond to places where XX matches 1p X. 


9.6 Example: Removing Duplicates and Frequency Revisited 117 


Consider the vector X, which, for convenience, only contains integers; The same expressions 
work for real numeric vectors: 


Xx 

8 4 2 2 8 7 4 4 6 1 2 5 7 FT 2 4 7 1 7 1 
Xi\X 

1 2 3 3 1 6 2 2 910 312 6 6 3 2 610 6 10 
ipoX 

1 2 3 4 5 6 7 8 91011 12 13 14 15 1617 18 19 20 
(Xi1X)=1pX Note where indices from X1X match 19 X. 

1 1 171 0 0 1 0 0 17 141 0 1 0 0 0 0 0 0 0 0 
((X1X)=1pX)/X 

842761 5 


Thus ((X1X)=19X ) /X gives an expression that yields the elements of X with duplicates re- 
moved. This is called the nub of X. Notice that the elements in the nub of X appear in the order of 
their first appearance in X. Note, also, that the nub of an arbitrary array may be computed by applying 
the formula to the ravel of the array. 

The elements of the nub of X can be ordered after the nub is computed if that is desired, but or- 
dering X first suggests an efficient method for computing frequencies. Notice that if Y is X with ele- 
ments put into ascending order, the frequency of a given element is apparent; see Y below. The 
frequencies of elements are the differences in the indices of first appearance of successive elements in 
Y. The expression ( Y1 Y )=19 Y marks the positions where elements first appear, the nub is com- 
puted, and ((Y¥1Y¥)=1p Y)/19 Y lists the indices of those positions: 


Y+X(4X] Order the elements. 
Y 
111222244445 677777 8 8 


(Yi Y)=1pY Mark positions of new elements in Y. 


1001000100011 100001 0 


NUB«((YiY)=1pY)/Y The nub in order. 
NUB 
1245 67 8 


IN©( (NY) =19Y) i190 Y The indices of the first appearances. 
IN 
148 1213 14 19 


The differences in those positions gives the frequency of the elements in the nub. Thus, there are 
8 minus 4 appearances of 2. The value 8 appears twice; that is, 21 minus 19, where 21 is 1 more 
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than the number of elements in Y. Organizing the computation of those differences gives 


FREQ+(1!1IN,1+pY)-JIN 
FREQ 
344115 2 


NUB 
1245 67 8 


Thus, there are three 1s, four 2s, four 4s, and so on, appearing in Y. 

This method for computing frequencies is slightly more complicated than the method discussed in 
Section 7.7, but it is more efficient for large vectors. This is because simple vector operations are used 
instead of a table. The most time consuming operation used in this section is ordering a vector; how- 
ever, that can be done very efficiently. 


9.7 Index Origin 


All of the APL functions considered so far have been presented under the assumption that counting be- 
gins with 1; thus 13 is 1 2 3. In APL you can select counting to begin with O instead; with that 
selection 13 is 0 1 2. This selection is made by assigning the value 0 to the system variable index 
origin, ()!O. The default value for L]/O in a clear workspace is 1. For example, 


O/0 Display the default value. 
1 

15 2602 ‘ABCDEFG'\' BAG' 
123 4 5 212211 217 

O/10+0 

15 2602 ‘ABCDEFG'\'BAG' 
0123 4 1101 0 1 10 6 


In general any APL function that uses indices is affected by L]/O. These include monadic and 
dyadic 1, roll (also known as random index generator), deal, indexing arrays, indexing axes (such as 
by catenate, laminate, transpose, rotate, and reverse), and grade up and grade down. Some more exam- 
ples when (1/0 is 0 follow: 


A ALO; ] AC1;] 
123 4 12 3 4 5 6 7 8 
5 67 8 
Al;2] A,LOJA 1 0 XA 
3 7 123 4 1 5 
5 67 8 2 6 
123 4 3 7 
5 67 8 4 8 
LOJA A,L1]A oA 
5 67 8 12344123 4 2 4 
123 4 6 7856/7 8 
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Note that shape and reshape are independent of L] /O. Grade up and grade down are sensitive to ] /O, 
whereas the idioms VI 4V] and VL ¥V] for a vector V are not sensitive to /O. Again let 0/0 
be 0: 


5 2.4 2.4 6 5 120 4 3 2.4 2.4 5 5 6 


Using index origin 0 has advantages in several mathematical and computer settings. In the case of 
polynomial computations, this advantage occurs since the constant terms are of degree 0. For character 
manipulation, it is useful because tables of ASCII characters are given starting with character 0. For 
modular arithmetic, it is natural because the standard residues modulo n include 0, as discussed below. 

Functions that use different index origins may reside in the same workspace. It is possible and 
often wise to localize L]/O in function definitions. This prevents these different values from conflict- 
ing with each other or the global value of L]/O in the workspace. 


9.8 Example: Polynomial Evaluation in Both Index Origins 


Consider the problem of evaluating P(t) = 3 + 2t — St? + t* at t = 10 in both index origins: 


p 
32°50 1 
L110 O10 
1 0 
15 15 
123 4 5 0123 4 
10*71+15 10+*15 
110 100 1000 10000 1 10 100 1000 10000 
P+.x10*714+15 P+.x10%*15 
9523 9523 


In origin zero 15 replaces ~1+15. 


9.9 Residue: Modular Reduction 


The vertical bar is used dyadically to indicate the residue or remainder of the right argument upon divi- 
sion by the left argument. This is a scalar function so that it extends elementwise to arrays in the usual 
ways: 


315 7115 12136 
2 1 0 

3 7 8110 11 12 3110 11 412 3 7 8110 
1 4 4 1 2 0 13 2 

315.1 2.118 113.14 
2.1 1.7 0.14 


Notice that 1 | X gives the decimal part of X. The expression 3 | 5 is read the “modulo 3 residue of 5” 
or the “3 remainder of 5”. 
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An outer product modulus table on the consecutive integers gives information about the structure 
of the integers. In particular, the columns with more than one 0 correspond to composite integers: 


T2345 6780e~.12345 6 7 8 


T 
010101 0 
2012012 
230123 0 
23401 2 3 
2345012 
2345601 
2345 6/7 0 
0+ .=T Count the number of zeros in each column. 
112193 1 3 


9.10 Example: Finite Field Tables 


The simplest finite fields can be constructed by using the usual addition and multiplication of the num- 


bers 0,1,2,...,p — 1 modulo p, where p is prime. For example, the addition and multiplication ta- 
bles of the field of order 5 can be computed by 
Oo 
0) 
51(15)°.4+15 51(15)°.%15 
0123 4 0000 0 
123 4 0 0123 4 
23 40 1 0241 3 
34012 03 1 4 2 
4012 3 0432 1 


9.11 Example: Alphabetization With Mixed-Case Letters 


Consider again the problem of alphabetizing a list of words, but allow both uppercase and lowercase 
letters. Assume []/O is 0. The alphabet here is the usual letters plus blanks, so that upon reduction 
modulo 27 the index of an e and an E are the same, namely 95. 


ALF 
abcdefghijklmnopqrstuvwxyz ABCDEFGH! JKLMNOPQRS TUVWXYZ 


N ALF\iN 
Cathline 30 120 812 914 #=§ 
John 37 15 814 0 0 0 0 
cat 3 120 0 0 0 0 0 
dog 415 7 0 0 0 90 QO 
robot 18 15 21520 0 0 0 
jockey 10 15 311 #5 25 0 QO 
Rob 4515 2 0 0 0 0 0 
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27\|ALFiN NOC4271ALFiN; ] 
3 120 812 914 5 cat 
10 15 814 0 0 0 0 Cathline 
3 120 0 0 0 0 90 dog 
415 7 0 0 0 0 0 jockey 
18 15 215 20 0 0 0 John 
10 15 311 #5 25 0 O Rob 
18 15 2 0 0 0 0 0 robot 


9.12 Represent 


The APL primitive function represent or encode, which is designated T, is used to change numbers 
into alternate, possibly nonuniform, base representations. The left argument is a list of the relative 
bases for successive digits, and the right argument is a number to be represented; in this case, the result 
is a vector: 


2222T9 333T 9 5 55 T 69 
1001 100 23 4 

2222 tT 12 333 7T «15 5 55 7T 12 
1100 12 0 022 


Thus 2 2 2 2 T Q gives a four-digit base 2 representation of 9, and 5 5 5 T 69 givesa 
three-digit base 5 representation of 69. 

Consider a detailed evaluation of 5 5 5 T 69 from the examples given above. The residue of 
69 modulo 5 is 4; which is the least significant “digit” of the result. The second digit 3 corresponds 
to the 5’s place base 5, and the 2 corresponds to the 25’s place. Thus, 25 5 1+.x2 3 4 is 
69. To construct the base 5 representation for 69, use L69+25, which is 2 —the most significant 
digit. Now 69-225, which is 19, needs to be represented. Next, L19+5 is 3, which is the next 
most significant digit, and 19-5%*3 leaves the remainder 4, which is the least significant digit. 

If fewer base 5 digits are requested than suffice to represent the night argument fully, a truncated 
representation results. If more base 5 digits are requested than are needed, the result contains leading 
zeros. For example, 


5 5 T 69 555 5 T 69 555 5 5 T 69 
3 4 023 4 002 3 4 


The right argument need not be integral, and the base can be nonuniform so that a left argument of 
4 6 5 results in a representation that has digits with weights 30 5 1.The4in4 6 5 T 69 
is only a place holder; any number could be used in place of the 4 without affecting the result: 


5955 T 69.31 465 T 69 465 T 69.31 
23 4.31 214 21 4.31 
85 5 T 69.31 8 6 5 T 69 8 6 5 T 69.31 


23 4.31 214 21 4.31 
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9.13 Base Value 


A complement to the represent or encode function is the base value or decode function, which is desig- 
nated 1. It is used to compute a number that is represented by a vector. The left argument is a vector 
specifying the base (possibly a nonuniform base), and the right argument is the vector representing the 
number: 


5 5 512 3 4 222111 1 3 3 311 1 1 
69 7 13 

512 3 4 2111 1 311 1 1 
69 7 13 

46512 1 4 46 511 1 1 4 6 512 1 0 
69 36 65 

7 6 512 1 4 ~2 6 511 1 =«1 0 6 512 1 0 
69 36 65 

212 3 4 “212 3 4 012 3 4 
18 6 4 


Notice 5 5 5 1 2 3 4 gives the base 5 evaluation of 2 3 4. For decode, a scalar left 
argument is uniformly extended to be a proper length vector for decode to make sense. That is unlike 
encode, where all the positions of the base had to be explicit. 

Consider the evaluation of 4 6 5 1 2 1 4 in detail. The nonuniform base given by 
4 6 5 yields weights of 30 5 1 tothe digits in 2 1 4. Therefore, yielding the same result as 
30 5 1+.*2 1 4, which is 69. Notice also that the base does not need to be positive. For ex- 
ample, 2 1 23 4is4 “2 1 +. 2 3 4, which is 6. 


9.14. Example: Polynomial Evaluation, Finis 


Consider the interpretation of 7 1V, where T is a scalar and V is a vector. If in common notation V 
has entries p,, P,-;,-..>Po and T is t, then T1V is p,t” + p,_,t” | + °°: + p\t + po. This gives 
polynomial evaluation. Since previous representations of polynomials in this book have been with the 
coefficients P in increasing order, you get 7 1P as an expression for evaluating P at T. Once again 
evaluate the polynomial P(t) = 3 + 2t — St? + ¢’: 


10193 2 ~5 0 1 ~2193 2 “5 0 1 
9523 ~13 


0193 2 5 0 1 1193 2 5 0 1 
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9.15 Represent and Base Value on Arrays 


Represent and base value can be used with arrays of data as well as with multiple bases. First consider 
examples of represent with a vector of data2 5 13: 


22227125 183 3337T2«5 13 
00 1 00 1 
011 O11 
10 0 2 1 
01 1 
557125 13 55557125 13 
012 00 0 
20 3 00 0 
012 
20 3 


Notice the columns of the results represent 2, 5, and 13 to the bases 2, 3, and 5 with the most sig- 
nificant digits at the top. For general arrays as right argument, the data items in the right argument are 
represented by the entries along the first axis of the result. 

Base value decodes along the first axis of its night argument: 


A 3 331A 3 1A 
00 1 25 13 25 13 
01 1 
22 1 

B 222418 2i1is8B 
111 £0 46/7 3 46/7 3 
0111 
001 1 


The situation is slightly more complicated when multiple bases are given in the left argument. For 
the represent function, the entries along the first axis of the left argument list the bases. Thus, the fol- 
lowing matrix C refers to four-digit base 2, base 3, and base 5 representations: 


C Cr 13 C rT 15 
23 5 10 0 10 0 
23 5 11 £0 11 0 
23 5 012 12 3 
23 5 11 3 100 


For the base value function, the entries along the last axis give the bases. If D and E are matrices, 
D 1 E yields a matrix whose entries come from decoding the columns of E with bases taken from 
rows of D in all possible combinations. This is very similar to the row-by-column principle of inner 
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products. Here let D+ &C and E+CT15: 


D E DiE 
2222 1 0 0 15 8 6 
333 3 110 40 15 9 
95 5 5 1 2 3 156 35 15 

1 0 0 


For example, the 35 in DLE is the resultof 5 5 5 5 1L 0 1 2 OQ, which is the base 5 
evaluation of 0 1 2 O. The diagonal entries are all 15 since they are the result of encoding and 
decoding 15 with the same base. 

As a last example consider the problem of converting between seconds and hours, minutes, and 
seconds. Below several conversions are given. Two of them are 60 seconds is 0 hours, 1 minute, and 
0 seconds and 4000 seconds is 1 hour, 6 minutes, and 40 seconds: 


A+24 60 60 Tt 60 345 4000 6300 


A 
0 0 1 1 
1 5S 6 45 
0 45 40 0O 


Notice that the most significant unit (hours) appears at the top of the column. 
Next base value can be used to convert back to seconds: 


24 60 60 1 A 
60 345 4000 6300 


9.16 Atomic Vector 


APL provides the vector LAV, which is a list of all the characters available in the APL system. Many 
of these characters are not displayable; you should experiment with LJAV. In this section []/ O is as- 
sumed to be 0. 

The first example computes the indices of some APL characters in LIAV; the second shows index- 
ing of LIAV to get characters: 


LAV. ' 4AB*4' HAV[30 30 71 86] 
71 86 87 30 112 rx hf 


Some of the nondisplayable characters are used for invoking control features. For example, 
(IAV[ 156] designates a carriage return. Thus, if SK/P+«5pUJAV[ 156], the vector SK/P 
may be manipulated as a character vector of length 5, but in response to executing SK /P the APL 
system displays five carriage returns — that is, it skips 5 lines. 

Use of LIAV as a reference vector of characters is illustrated in the next section. 


9.17 Example: Encoding a String Into Binary 


Consider the problem of representing a string of text in binary. Let ]/O+0O and 
Ve'at tT O35ABC*w'. 
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First, LAV V is used to represent V as a numeric vector of indices in the range 0 to 255. Then those 
integers are represented using an eight digit binary number: 


V 

at tTO35ABC +w 
HAViV 

42 30 55 140 143 145 86 87 88 30 46 
A+(8p92) TOUAViV 


A 
00011100000 
00000011100 
10100000001 
011001414 114 1 ~0 
11034410001 1 =+41 
01113103134 101 41 
11103140341 01 ~=41 
0010311031000 

21A 
42 30 55 140 143 145 86 87 88 30 46 

OAVL21A] 
at tO35ABC*w 


Notice that it was easy to reinterpret the binary “message” A as the original text string. 


9.18 Example: Hamming Code for Error Correction 


Error-correcting codes are used to partially repeat the information in a message so that errors in trans- 
mission can be detected and corrected. The goal is to repeat the information in such a way that only 
small amounts of additional information need to be transmitted. Here the implementation of the sim- 
plest Hamming Code is considered. It can identify and correct a single error in a four-bit message by 
sending three additional bit checks. See texts such as Tucker (1988) and Pleuss (1982) for motivation 
of this algorithm. 

The message 1 1 1 O is encoded using matrix multiplication by Q (given below) and reduc- 
tion modulo 2: 


1 1 0 1 2 0 
1 O11 1 | 2 0 
1 0 0 0 ; | | 
0 1 1 1 ; = 12 | =|01] (modulo 2) 
01 0 0 0 | l 
00 1 0 1 | 
00 0 1 0 0 


: 
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With Q as above and MES+1 1 1 OQ, adirect APL computation of the resulting encoded message 
is given by EMES+2|Q+. MES: 


EMES 
00101 1 0 


Actually, it is better to replace the arithmetic of + . x followed by reduction modulo 2 by logical 
functions. In particular, for binary numbers multiplication modulo 2 is the same as “logical and”, and 
addition modulo 2 is the same as “logical not equals”. Those facts follow from the tables: 


axw {QO 1 2laxw |! OQ 1 aAw|0O 1 
0|00 0 0 |0 0 
1 0 1 1 0 1 1 0 1 
atw| OQ 1 0 a¥w|O 1 
0 ;0 1 0 0 | 0 1 
1 12 1 1 0 1 1 0 


Therefore, matrix multiplication modulo 2 of binary arrays can be accomplished using the *. A inner 
product. 

In some implementations of APL, the use of # . A provides a dramatic increase in speed. Using 
this inner product, 


EMES+Q#. AMES 
EMES 
001011 0 


Notice that with L]/O+0, rows 2, 4, 5, and 6 of Q are rows of the identity matrix. So it is easy to 
recover the original message by looking at the entries 2, 4, 5, and 6: 


EMES(2 4 5 6] 
11 £1 =0 


Now consider the possibility of corruption of the message during transmission. Suppose the third 
bit is incorrectly sent so that the received message RMES is given by 


RMES 
000011 0 


The error can be recognized by multiplying modulo 2 by the matrix M, given below; again # . A ac- 
complishes the matrix multiplication and reduction: 


Mz. N\EMES 
00 0 

Mz .ARMES 
11 0 


The fact that M# . AEMES is the zero vector indicates that EMES does not appear to contain an 
error. Since M# . ARMES is not the zero vector, some of the bit checks have failed, so there is an error. 
M is constructed so that the error (assuming there is just one) is in the position of RMES, which corre- 
sponds to the column of M that equals M# . ARMES, column 2 in this example. (Recall J) /O-0.) 

Here M# . ARMES and the columns of Mare interpreted as base 2 numbers and the column index 
of Mz . ARMES in M is found by use of dyadic iota. This trick for finding the index of the desired 


oo = 
oOo © 
oo 


1 0 
0 1 
1 1 


o=_- — 
— a ae 


9.19 Example: Hamming Code on Natural Text 127 


column depends on the fact that 2 1M has no repeated entries: 


(21M)\2i1M=#.ARMES Find index of error. 


2 

RMES[2]+~RMES[ 2 ] Correct the error. 

RMES Corrected received message. 
001011 0 

RMES(T2 4 5 6] Original four-bit message. 
1110 


9.19 Example: Hamming Code on Natural Text 


Consider the problem of sending the message NVES+«'WE HAVE FOUND $3,000,000! ' 
via the Hamming Code. Since the Hamming Code used here acts on four-bit messages and LJAV has 
256 characters so that 8 bits are used to represent a character in LIAV, it is convenient to represent the 
25-character message NMES as a three-dimensional 4-by-2-by-25 Boolean array. The Hamming code 
will act along the first axis. 

Each character is represented as an integer in the range 0-255; then that integer is represented as 
two base 16 digits. Each of those digits is then represented as a four-bit Boolean word along the first 
axis. In the example below the character 'N' in 'FOUND ' is underlined and all the data resulting 
from that letter are underlined throughout; the computations on 'N' are also summarized in a flow 
chart (Figure 9.1): 


NMES 
WE HAVE FOUND $3,000,000! 
OAV. NMES 
108 90 152 93 86 107 90 152 91 100 106 99 89 152 4 143 47 140 
140 140 47 140 140 140 48 
16 16TUAViNMES 


6 5 9 5 5 6 5 9 5 6 6 6 5 9 0 8 2 8 8 8 2 
8 8 8 3 
12 10 813 61110 811 410 3 9 8 415 15 12 12 12 15 
12 12 12 0 
MES<«2 2 2 2716 16TUOAViNMES 
MES 
0010000100000101011 1 013 1 1 «0 
114110141 110140341 013117 474 4 24°21 21 «0 


110311413104 71~«41 
001100001 0 


100000000000 0 
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The natural message NMES has been coded into the binary message MES. Now MES is encoded 
with the Hamming encoding matrix Q. The under-dots indicate where the message will be corrupted 
during transmission: 


EMES+«Q=. AMES 
EMES 
100 0 0 


1000 1 
110 1 0 1 
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Now consider the possibility that the message is corrupted during transmission and hence incor- 
rectly received. This is simulated below by letting RMES be the encoded message but forcing 12 en- 
tries to be 1s; those entries are indicated with under dots in EMES. Notice that reinterpreting RMES 
as natural language text does not restore the original message —the message was corrupted. Although 
several errors are introduced into RMES, these can all be corrected since they are in separate seven-bit 
messages given along the first axis: 


RMES+«EMES 
RMES(2:1;34+:112J)<1 Introduce errors. 
OAVCL16L2LARMESL2 4 5 6;;])] Decode RMES:; observe errors. 


WE HIVE FWUVD 3,000,000! 


Letter represented 
as an integer in 
range 0-255 


99 


Number represented 
as a pair of base 
16 digits 


6 3 


Two digits written 
as 4-bit Boolean 
words 


amming code gives 
7-bit 
representations 
for those words 


H 
1 
1 
0 
0 
1 
1 
0 


Figure 9.1 Summary of coding and decoding 'N'. 
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Error in transmission 


1 
1 
0 
0 
1 
1 
0 


Multiply by bit 
checking matrix 


Error column | 


(O/10-0) 


Column with error 

1 is the same as 

1 column 2 of M, 
0 hence position 

0 2 in the received 
1 message is 

1 corrected 

0 


Take rows 2,4,5,6 
0 0 
1 0 
11 
0 1 


Evaluate columns 
in base 2: 

6 3 

Evaluate in base 16: 
99 

Give the corres- 
ponding letter 

UN! 


129 
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Next, the received message is multiplied by the bit check matrix M as in Section 9.18: 
1 
0 
1 


0 1 
1 1 
1 1 

* . ARMES 
0 0 
0 0 


00 0 0 —0000000000000000 0 0 
00 0 1 0010100100000000 0 0 
000000000 DODVDIODODDODDODODODDOADODADDADD OD 
00 0 100001010010000000000 


0000000000 0 000000000000 0 
000000000 0 0 0000000000000 


The presence of 1s shows that many of the bit checks failed. These are in the columns where a 0 
was set to 1 and where the errors in the decoded RMES were observed. As in Section 9.18, the col- 
umn indices in M of those errors are computed. The same trick of evaluating the columns of M and 
Mz . ARMES in base 2 allows dyadic iota to give the column indices of M where those columns of M 
equal the corresponding columns of M# . ARMES. An index of 7 corresponds to no error. The array 
COR contains a 1 in the positions in which RMES need to be corrected. The corrections are done by 
adding COR to RMES modulo 2, which is implemented via the not equals function: 


(21M)\21M=#.ARMES 


|o|o 


777777777 TTT TTT TT TTT TTT 7 7 
7777277772727727777 7 7777 T 
COR+«(17)°.=(21M)121M#.ARMES 
COR 
0000000000 0000000000000 0 0 
0000000000 0000000000000 0 0 
0O0000000000000000000000 0 0 
—0000000D0D0DIDOIDODIDADDOADOIAIADADADD DO OD 


0000000000 0000000000000 0 0 
00001 000010100100000000 0 0 
000000000000 000000000000 0 
0000000000 0000000000000 0 0 
—000000OD0DODIVDODODDIODADIADIDADDADDD OD 
000000000000 000000000000 0 
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CMES +«RMES#COR 
DAVL161L21CMES[2 4 5 6:;;]] 


WE HAVE FOUND $3,000,000! 


After the correction is made, the original natural text message can be successfully recovered from the 
received message. 


Exercises 


1. 


| Bl Ge 


In 


Consider D-12 19 26 13 9 14. 

(a) Give an APL expression to order D in increasing order. 

(b) Give an APL expression to order D in decreasing order. 

In Section 9.1 the application of grade up to a vector was considered. The expression 4 V results 
in a list of indices beginning with the index of the smallest element, and so on. The expression 
4 4 V gives the rank in increasing order of the elements of V. Describe in words the meaning of 
the following expressions (suggestion: experiment): 

(a) 444V (b) #4444V (c) 49V 

For a general array A, what is the shape of 4A? 

Consider the examples of reordering and ranking the data on grade point averages given in Sec- 
tion 9.3. Interpret verbally the examples given in that section. 

Consider the following table of computer resource requirements of three algorithms 1, 2, 3 on 
two problems 1, 2: 


Algorithm } Prob | Time (sec) Space (MB) 


12 
24 


15 
22 
36 
15 


Assuming that the matrix M contains the information given in the table, give APL expressions to 
reorder that information in the following ways. 

(a) Fastest runs appear first, with ties decided by looking at space. 

(b) Keep the data ordered by problem but reorder by time within the problems. 

(c) Order by algorithm number with the least-space solution first. 

For the same data as in Exercise 5, give an APL expression that gives the data of the problem 
and attaches a column that ranks the rows according to fastest runs with ties decided by a least- 
space requirement. 

Write an APL function that takes a list of words as the rows of a matrix (uppercase only) as the 
argument and results in the list alphabetized. 

Write an APL function that takes a list of words as the rows of a matrix involving both uppercase 
and lowercase letters and that alphabetizes so that the capital letter always comes before the lower- 
case version of the same letter. For example, allen is after Allen. 

Let V*-2 9 2 8 3 7 Q 5 and assume LJ /O+0O. What are 

(a) Vi2 3 4 5 (b) Vii9 (c) Viv 

Let ALF+' ABCDEFGH! JKLMNOPQRSTUVWXYZ ' and L)/O+0. What are 

(a) ALF. 'HELLO' (b) ALF. 'ALF' (c) ALFiALF 
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Consider A.B for arrays A and B. 

(a) What are the requirements on A and B so A.B makes sense? 

(b) In that case, what is the shape of A: B? 

Describe verbally the result of VI ¥VJ.1V. Experiment with 

Ve12 348441112 9 8. 

Write an APL function NUB that takes a vector argument and results in the nub of the vector. 

Write an APL function FFREQ (fast frequency) that takes a vector argument and results in 

a two-row matrix giving the ordered nub of the argument in the first row and the corresponding 

frequencies in the second row. 

Write a function POL YVAL that evaluates a polynomial at several points. Use 0 /O+0. (Hint: 

See Section 9.8.) 

Make slight modifications to the H/ ST in Section 7.8 so that it works with 0/O+0. 

Let T be a scalar t and P and Q be vectors representing polynomials P(t) and Q(t) such that 

coefficients are in increasing order. Write an APL expression that evaluates the composite of 

the polynomials at ¢: P(Q(t)). 

An APL expression is L] / O independent if it performs in the same manner regardless of the value 

of (1/0. Write an APL function for polynomial evaluation that is [] / O independent. (Hint: The 

function may refer explicitly to L] /O but it should give the correct answer regardless of whether 

O/Ois O or 1.) 

Give an APL expression and its result for the number of divisors of the integers 2-100; for ex- 

ample, 8 has 4 divisors (1, 2, 4, and 8). 

Give an APL expression that gives the primes less than or equal to 100. (Hint: See Exercise 19.) 

(a) Give APL expressions to compute addition and multiplication tables modulo 6. Also give 
the tables. 

(b) Do the same for modulo 7. 

(c) Describe verbally how these tables are different. 

Write an APL function SAWTOOTH that extends the absolute value function on [—77, 7r] peri- 

odically to the real line. Recall that 7 is computed by 01. 

Write an APL function that alphabetizes the rows of its matrix argument without regard for 

the case of the letters. Let the digits 0, 1, 2,...,9 be legal characters that follow the letters 

in the alphabet. 

(a) Give an APL expression that yields a matrix having as columns all the four-digit binary 
numbers. 

(b) Give an APL expression that yields a matrix having as columns all the three-digit base 
3 numbers. 

Write an APL function NUMBASE that has arguments K and N and that yields all of the K -digit 

base N numbers in the columns of its result. 

Give an expression for and compute the number of four-digit base N palindromic numbers for N 

equal to 2 through 5. (Hint: Use NUMBASE from Exercise 25.) 

Consider VT B for a vector V. 

(a) What are conditions on 9 V and 0B so that VT B makes sense? 

(b) What is the shape of VT B? 

Consider V 1B for a vector V. 

(a) What are conditions on 9 V and 0B so that V1B makes sense? 

(b) What is the shape of V1B? 

(a) Write a function S2HMS that takes a list of times in seconds and results in a matrix giving 
the corresponding hours, minutes, and seconds in the columns of the result. Test your func- 
tionon 50 500 5000 50000. 

(b) Write a function HMS 2S that takes a matrix with hours, minutes, and seconds given in the 
columns and results in a vector giving the corresponding seconds. Test your function on 
the result of (a). 
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(c) Write a function H2HMS that takes a list of times in hours (fractional allowed) and results 
in a matrix giving the corresponding hours, minutes, and seconds in the columns of the re- 
sult. Test your functionon 0.25 11.5 2.75 3.1415. 
(d) Write a function HMS 2H that takes a matrix with hours, minutes, and seconds given in the 
columns and results in a vector giving the corresponding hours. Test your function on the 
result of (c). 
30. Write an APL function HAM that takes natural text as input and results in a binary array encoded 
with the Hamming Code considered in Section 9.19. 
31. Write an APL function CORHAM that takes an array encoded with the Hamming code and that 
may contain errors and that corrects the errors. 
32. Write an APL function UNHAM that takes a binary array encoded with the Hamming code and 
results in the natural text it represents. 
33. Use the function HAM to encode the message 'THE SEMESTER IS TOO LONG’ as 
the variable EMES. Modify the received message in several ways. Let 


RMES 1+RMES 2+RMES3+RMES 4+RMES5«+RMES6<EMES 
RMES1(04;0;110]+1 9 RMES2[5;0;:110]+1 9% RMES3L4 5;0;110)]+1 
RMES4(03;0;:110]+1 %© RMES5(5;0 1;110]+1 9 RMES6[1 3;0;:110]+1 


Use UNHAM to decode the six messages before and after using CORHAM. Explain why some 
errors did not need to be corrected and why some could not be corrected. 


10 


More Function Definition 


This chapter provides tools useful for writing complex APL functions and “programs”. They include 
forms of branching, line labels, recursive functions, methods for input and output, format, and the 
powerful function execute. The chapter also gives many examples. 

The conventional notion of a computer program differs from the kinds of APL functions discussed 
previously. Computer programs lack the essential mathematical nature that those APL functions had; 
namely, those functions had explicit arguments and produced values or results that are automatically 
passed along as arguments for the next function. User-defined functions of “programming type” are in- 
troduced in this chapter. 


10.1 Functions for Programming Uses 


All user-defined functions previously considered produced a result or value that was passed on as an 
argument for the next function to the left or was displayed in the session log. Additionally, all those 
functions had arguments. Those features, which are also shared by the APL primitive functions, make 
them extremely useful but are not needed in some “programming” applications. 

The desired effect of a function might be, for example, the updating of the value(s) of one or more 
global variables (variables not localized in a function). A function might be constructed to invoke sev- 
eral other functions or effect an organized display of data. APL provides function types suited for such 
programming needs. These functions may or may not have an explicit argument and may or may not 
automatically pass on a result. 

The form of the function header determines whether a defined function does or does not automati- 
cally pass a value to the next function and whether the function does or does not require explicitly 
specified arguments. If the variable assignment, Z*, is omitted from the header, the function does not 
pass on a result that could be used as an argument for another function. Similarly, if no argument vari- 
ables are placed on either side of the function name in the header, the function does not require explic- 
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itly specified arguments. Simply omitting one or both of those parts of the header causes the defined 
function to lack the corresponding feature. A function that automatically passes a value to the next 
function is said to “return a result”. Table 10.1 gives examples of header styles for a function F. 


Table 10.1 Examples of header styles for a function F. 


Number of Arguments 
Dyadic Monadic Niladic 


Returns a result 
No result passed 


Comments can be helpful reminders in lines of APL. Anything following the /amp symbol aA ona 
line is a comment and is not executed by APL. Some implementations permit comments only on sepa- 
rate lines. 

The function COUNT is a simple example of a function that neither takes an argument nor returns 
a result. Execution of this function requires that C be a global numeric variable in the workspace. 
Notice the absence of output variable assignment and arguments in the header: 


v COUNT 
C1] C+C+1 a EACH COMPONENT OF C IS INCREMENTED BY 1. 
Vv 
C a SHOW CURRENT VALUE OF C 
17 
COUNT a EXECUTE THE FUNCTION; NO VALUE IS DISPLAYED 
C A OBSERVE THE NEW VALUE OF C 
18 


In contrast to all previous functions, which were either monadic or dyadic, the function COUNT, 
which has no explicit argument, is termed niladic. 

If a value is computed or a character array is generated as a result of the last function execution of 
a line of APL, that result is displayed in the session log. This feature has been used often in this book 
in immediate execution mode, but it applies equally in executing a line of a defined function. Here is 
an example in a niladic function: 


v HI 
C1] "HELLO WORLD ' 


H! 
HELLO WORLD 


Although the function H/ caused output, it does not return a result. For instance, 9 H/ would produce 
an error. 
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10.2 Example: Descriptive Statistics 


The next example, STAT/ST/CS, has a vector argument but does not return a result; that is, it 
does not pass on a value usable as an argument for another function. This function invokes several 
functions from Chapter 7; definitions of these functions are given there, except for MODE, which is an 
answer to Exercise 7.12. Again, observe the header: 


v STATISTICS V 


C1] "RANGE:' % RANGE V 
[2] '"MODE(S):' % MODE |.5+V 
C3] "MEDIAN: ' % MEDIAN V 
[4] "AVERAGE:' 9% AVG V 
[5] "STANDARD DEVIATION:' % SD V 
C6] 'HISTOGRAM:' 9% HIST |.5+V 
Vv 


Notice that the data in V are rounded to integers before applying the functions MODE and 
HIST, since these functions were written for integral data only. Here is a sample execution of 


STATISTICS: 


V-5.5 43.1 3.8 7 6.15.8 10 10.9 7.1 6109.2 12 7 11 9.9 
STATISTICS V 
RANGE : 
3.1 12 
MODE (S): 
6 
MED 1 AN : 
7 
AVERAGE : 
7.552941176 
STANDARD DEVIATION: 
2.76385547 
H!STOGRAM : 
* 
xk * 
* xx xk 


x xk keke 


When the quantity of output is large, care in formatting makes the data more attractive in appear- 
ance and more readily comprehensible. Formatting is discussed in Section 10.15. 


10.3 Branching 


One of the powerful devices in user-defined functions is branching —the capacity for directing the 
subsequent flow of function execution depending on conditions at the branch point. In Section 3.9, 
conditional branching was introduced and used to execute simple loops. The statement +4 *K <N was 
used in that context; it causes execution to branch to line 4 if the counter K is less than N; otherwise 
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the branch is “to zero”; that is, execution terminates. In Chapter 6, branching was used outside the con- 
text of loops with counters. For example, >2+2*1=M[B;C] from the function S/M in 
Section 6.3 causes a branch to line 4 if the matrix element M[ B ; C] is 1; otherwise the branch is to 
line 2. In these examples a logical function is involved in calculating one of two possible line numbers 
or the number 0. 

Besides branching to a line number, which may be given as a scalar or a one-element vector, APL 
recognizes branching to the empty vector 10. The interpretation of +10 is not to branch at all in the 
usual sense but rather to proceed with execution of the next succeeding statement of the function. 
Thus, if V can take as values either a line number or 10, the expression ~ V in a function effects a 
branch to either the specified line or else the next line of the function. 

One way to generate either a number or 10 is by compression (Sections 7.9 and 8.5): 


1/3 0/3 1/0 
3 (empty vector) 0 

01/3 00/3 01/0 
1 0 1 


Note, 0/3 yields the empty vector, giving no visible display. 

Thus, the expression + (N<10)/3 causes a branch to line 3 if N is less than 10, but causes 
execution of the next succeeding line of the function if N is not less than 10. The expression 
+(N=M) /0 causes termination of function execution if N equals M but produces execution of the 
next function line if N does not equal M. 

Another way of causing a conditional branch is by using the residue function. The residue function 
(Section 9.9) is used to find the remainder of a division. This is indicated with dyadic use of a vertical 
bar. The result is the remainder upon dividing the right argument by the left argument: 


215 218 2|°7 


315 415 117 
2 1 0 


Hence, the expression + (2 | N)/4 causes a branch to line 4 if N is an odd integer but causes 
execution of the next line if N is an even integer. 

Consider the function REMOVE 2S. This function is designed to take a positive integer N as ar- 
gument and return the largest factor of N that has no factor of 2 in it; forexample, REMOVE2S 60 
should yield 1 5: 


v Z+REMOVE2S N 


C1] -~(21N)/4 a BRANCH TO LINE 4 IF N IS ODD 
[2] N«N+2 
C3] +1 
[4] Z+N 
Vv 


In line 1, if the 2 remainder of Nis 1 (i.e., Nis odd), then the compression yields 4 and execu- 
tion skips to line 4, after which execution is complete and the value of the function is passed on to the 
next function or is displayed in the session log. But if 2 exactly divides N leaving remainder 0, then 
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the compression yields 10 and there is no branch; execution proceeds to the next line, line 2. N has 
one factor of 2 removed from it in line 2; then the unconditional branch +1 returns execution to 
line 1. The new value of N is tested for oddness and the cycle continues until N is odd; then the branch 
to line 4 leads to the completion of function execution: 


REMOVE2S 60 REMOVE2S 1000 REMOVE2S 1728 
15 125 27 


10.4 Line Labels 


A line label provides a name for a function line. Labeling a line is effected by beginning the line with 
the label followed immediately by a colon. A line label has a numerical value within the function; 
namely, the number of the line it labels. 

The names TEST and END will be added as line labels to the function REMOVE 2S of 
Section 10.3. Their values in this first example are 1 and 4, respectively, since lines 1 and 4 are labeled 
by them: 


v Z+REMOVE2S N 
C1] TEST: 7(21N)/END a BRANCH TO "END"' IF N IS ODD 
[2] N+«N=+2 
C3] ~TEST 
[4] END: Z+N 


Vv 


Notice the syntax of label usage. This version of the function with line labels is identical in execu- 
tion to the original version. Line labels are automatically localized to the function containing them. An 
advantage of the use of line labels is that modifications of a function that affect the numbering of lines 
in the function will not disturb the flow of execution determined by branches to labeled lines. Thus, 
there is no need to renumber branching “targets” to match the new line numbers. 

Here is a specific example: The function REMOVE 2S, as presently written, would go into an 
“infinite loop” (i1.e., would cycle endlessly through lines 1, 2,3,1,2,3,...) in response to the argu- 
ment N being 0. To avoid getting into this infinite loop, you could insert > (Z+«N=0)/0 as a new 
first line of the function. If N equals 0, this new line would assign Z the value 1 and terminate execu- 
tion; but if N is not 0 the compression would yield 10 and function execution would proceed to the 
next line. After inserting the new line the revised function is 


v Z+REMOVE2S N 
C1] +(Z-N=0)/0 a TREAT CASE N=0 
[2] TEST: 7(21N)/END a BRANCH TO "END" IF N IS ODD 
C3] N+N+2 
[4] ~TEST 
C5] END :Z<N 


Vv 


The values of TEST and END are now 2 and 5, but the branching to those named lines is un- 
changed; no adjustment of line numbers is necessary. For positive N the function behaves as before: 


REMOVE2S 0 REMOVE2S 1728 REMOVE2S 512 
1 27 1 
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Good programming style benefits by use of line labels. Modification of a function that affects 
the numbering of lines will not disturb the flow of execution determined by the branches to labeled 
lines. Line labels help make functions with branches more easily interpretable. A label signals the 
reader to expect a branch to the labeled line. A suggestive name is helpful for understanding why 
the branch is used. 


10.5 Examples: Aggregating Preferential Ballots 


Almost all organizations and political subdivisions elect officers or representatives or choose among al- 
ternate courses of action. A few of the simplest methods for arriving at a group decision based on the 
preferences of individual members will be described and interpreted as APL functions. The examples 
have several alternatives, one of which is to be selected. Each voter expresses his or her preference 
among the alternatives by ranking them first, second, and so on. 

In the example in Figure 10.1, the voter has given the highest ranking to alternative 3, next 
highest to alternative 4, and lowest to alternative 1. 

The individual voters’ ballots are combined to form a matrix named B called the Ballot; the capi- 
tal B in Ballot is used to distinguish it from the individual ballots. Each column of B is the preference 
ranking of one of the voters. Row J of B contains the rankings given to alternative J by the voters. 
Thus, B[ J; K ] is the ranking that voter K assigned to alternative J. Two sample Ballots, B and C, 
recording the preferences of 11 voters on 4 alternatives are 


B C 
421424321 4 3 3243242243 3 
34313219323 «+1 23344243244 
11421324312 1412313471 2 «421 
2323414142 4 412113113 1 2 


Notice that the individual ballot illustrated in Figure 10.1 comprises the first column of Ballot B. 


Majority. The majority choice is the alternative that receives more than half the total number of 
first-place rankings. Of course, the Ballot might not determine a majority choice. The function 
MAJOR |! TY has B as an argument and returns the number of the majority choice alternative; if there 
is none, it returns 0: 


v Z+MAJORITY B:N;S;T 
C1] Z+0 9 Ne1!oB 
[2] *((N+2)2T7+[ /S++/1=B)/0 
[3] Z+SiT 


Figure 10.1 An individual’s ballot. 
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N is the number of voters. In line 2, the number of first-place rankings for each alternative is 
counted by the expression +/ 1=B; those numbers are stored as the vector S. If the largest compo- 
nent of S, which is named T, is not more than half the number of voters, the branch is to 0 (execution 
ends) and the function returns 0. Otherwise, the branch is to 10, and in line 3 the S index of T, 
which is the index of the majority choice, is returned by the function. Applying MAJOR! TY to the 
Ballots B and C shown above yields 


MAJORITY B MAJORITY C 
0 4 


Ballot B does not determine a majority choice. 


Plurality. The plurality choice is the alternative that receives the most first-place rankings. If two or 
more alternatives tie with the greatest number of first-place rankings, no plurality choice is determined 
and the function PLURAL | TY returns 0: 


v Z+PLURALITY B;S;T 


C1] Z+0 
C2] 4(1<+/S=T+[/S++/1=B)/0 
C3] ZeSil 

Vv 


In line 2, the first-place rankings for each alternative are counted and stored in S. The maximum 
component of S is assigned to 7, and the number of components in S that equal T is determined. 
If there is more than one such component, the branch is to O and the function returns 0. But if there 
is only one component of S that equals T, the branch is to 10, and in line 3 the S index of 
that one component, which is the plurality choice, is the number returned by the function. Applying 
PLURAL | TY to Ballots B and C yields 


PLURALITY B PLURALITY C 
3 4 


Plurality with runoff. Runoffs between leading alternatives are commonly used when there is no ma- 
jority choice, but runoff procedures vary. In the present implementation, the two alternatives receiving 
the greatest number of first-place rankings become the only alternatives in a runoff ballot count. The 
relative rankings of the runoff alternatives on each individual ballot determine the alternative for which 
that ballot counts in the runoff. For example, if one of the runoff alternatives received a 2 ranking on a 
particular ballot and the other a 4 ranking, that ballot would be counted for the alternative that got the 
2 ranking. If there is not a unique pair of alternatives with the greatest number of first-place rankings, 
this implementation does not make a choice and the function RUNOFF returns 0. 


vY Z+RUNOFF B;N;P;R;S 
C1) Z+0 0 Ne114pB 9 Re¥S-++/1=B 


[2] -(SCR(2]1]=S(R03]])/0 a TEST FOR UNIQUE LEADING PAIR 
[3] P-BCR(1];]+.<BLR[2];] a P 1S NO. BALLOTS AWARDED RI[1] 
[4] *+(P>N+2)/END a TEST WHETHER RL1] WINS 

[5] Z*RL2)]*x(N+2)<N-P a TEST WHETHER R[2)] WINS 

[6] +0 


C7] END: 2+-R[1) 
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N is the number of voters. In line 1, the first-place rankings for each alternative are counted and 
stored in S and the downgrade of S is stored in R. A has the alternative numbers (indices) listed in 
decreasing order of the number of first-place rankings received. If the second and third largest numbers 
of first-place rankings are equal so that there is no unique pair of leading alternatives, then the branch 
in line 2 is to 0; no choice is made and RUNOFF returns Q. Otherwise, in line 3 the relative rankings 
of the two leading alternatives are compared and the counts of ballots awarded to those alternatives are 
P and N-P. If P is greater than N~=2, the branch in line 4 is to END, where the number of the alter- 
native receiving P ballots in the runoff, R[ 1], becomes the value returned by the function. If P is 
not greater than N= 2, line 5 is executed. If N-P is greater than N= 2, the corresponding alternative 
number, R[ 2], is returned by the function. Note that if P equals N+2, no runoff choice is deter- 
mined and the function returns 0. 

Applying RUNOFF to Ballot B yields 


RUNOFF B 


10.6 Multioption Branches 


Branches can have more than two possible branch “targets”. Thus, if N is a positive integer, the 
expression + 4+3 | N would cause a branch to either line 4, line 5, or line 6, depending on the 3 re- 
mainder of N. If LINEA, LINEB, and LI NEC are line labels within a function, they have nu- 
merical values that can be catenated. Then the expression > (W=\13)/L/NEA,LINEB,LINEC 
would cause a branch to L | NEA if Wequals 1, L / NEB if Wequals 2, and L | NEC if Wequals 3; 
otherwise, the branch is to 10. Similarly, the expression 
*(~1 0 1=xW)/LINEA,LINEB,LINEC 

would cause a branch to L | NEA if W were negative, L /NEB if Wwere O, and L | NEC if W were 
positive. This last example, that uses signum, arises quite naturally in the root approximating function 
defined next. 


10.7 Example: The Bisection Method 


The bisection method is a simple method for approximating a root of f(x) = O on an interval [a, b] if 
it is known that f is continuous there and that f(a) and f(b) have opposite signs. Although usually 
slower than Newton’s method, the bisection method has the advantage of being surefire. The idea is to 
look at the sign of f at the midpoint z of [a, b]. If f(z) = 0, then z is a root; otherwise, choose one of 
the intervals [a, z] or [z, b] on which f changes sign (and thus has a root) to be the new interval on 
which the process is to be repeated. Repeated bisection leads to better and better root approximations. 

Let F be a user-defined function, continuous on an interval containing A and B with A less than 
B. Suppose F A and F B have opposite signs. Let TOL be a global variable that prescribes the re- 
quired tolerance of the root approximation. Then the dyadic function B | SECTMETHOD applies the 
bisection method and yields a root approximation to within the tolerance specified by TOL . Note, par- 
ticularly, the three-way branch in line 3 and the assignment to quad, L]« Z, in line 1, which will cause 
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each successive approximation to be displayed: 


v Z+A BISECTMETHOD B 
C1] BIS: U+Z+.5xA+B a MIDPOINT GIVES APPROXIMATION 
C2] +(TOL>.5xB-A)/0 a |S APPROX. WITHIN TOLERANCE 
[3] +(~1 0 1=x(F A)xF 2)/BEND,0,AEND 
C4] BEND:B+rZ 9 +BIS 
C5] AEND:A+Z 9% +BIS 


Vv 


Illustration. Approximate the zero of the continuous function f(x) = x — e * to within .005 of a 
unit. Note that f(0) = ~1 < 0 and f(1) = 1 — e'' > O. First, define F and TOL: 


Vv Z+F X 
[1] Z+X-+-xX 


Vv 


TOL+ .005 
0 BISECTMETHOD 1 


oe hoe koekoekoekoxe) 
ol 
<e) 
Lo) 
N 
ol 


56640625 
0.56640625 


Thus, the solution of x — e * = 01s within .005 of 0.56640625. 


10.8 Recursive Functions 


User-defined functions frequently invoke other user-defined functions. An APL user-defined function 
can call upon itself. As with all function calls, a self-call is effected simply by using the function 
name. A function that in its definition calls upon itself is termed a recursive function. 

The first example of a recursive function given here is for illustrative purposes only; it mimics 
simple multiplication via repeated addition using the fact that NA can be computed by 
A+(N-1)*A. The dyadic function T/MES gives the same result as NxA, where N is a positive 
integer and A is any numeric array. Note that in line 3 the function invokes itself but with the left argu- 
ment reduced by 1. It is instructive to think through the execution of this function carefully for the 
N values 1, 2, and 3: 


Vv Z+N TIMES A 
C1] Z+A 
[2] +(N=1)/0 
C3] Z+A+(N-1) TIMES A 


5 TIMES 3.2 4 TIMES 2 “1 0 1 
16 8 ~4 0 4 
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10.9 Example: Generating Permutations 


Consideration of the linear permutations of n distinct objects arises in various mathematical applica- 
tions. The numerals 1,2,..., can serve as a prototypical set of n objects; for example, the set of all 
permutations of three objects may be represented by {123, 132, 213, 231, 312, 321}. The search for a 
procedure for generating all permutations of n objects leads, rather naturally, to an inductive approach. 
For example, having all the permutations of 1 and 2—namely, {12, 21}, suggests that the permutations 
of 1, 2, and 3 be generated by using each of the two orderings of 1 and 2 together with the 3 in each of 
the three possible positions. An inductive approach, in turn, suggests a recursive function. 

The recursive function ALLPERMS generates the permutations of the elements of 1 N, giving 
the permutations as the rows of a matrix: 


Vv Z+ALLPERMS N 
C1] -2xN>,Z+1 1p 1 a TEST IF N>1 
[2] Z+(1!N)ONAN,ALLPERMS N-1 


Vv 


The “workings” of this function are elucidated by study of the example execution ALLPERMS 3. 
The results of the steps in the nght-to-left execution of line 2 are presented in succession: 


A+ALLPERMS 2 Get all permutations on N-1 letters. 


A 
1 2 
21 
B+3,A Attach WN to all those permutations. 
B This gives all permutations on N symbols 
31 2 with N in first position. 
3 2 1 
C+37B Make WN copies of each permutation in B. 
C 
312 
312 
312 
3 2 1 
32 1 
32 1 
Z+(16)0C Rotate the N in each of those 
Zz permutations into each of the N 
1 2 3 possible positions. 
23 1 
312 
21 3 
13 2 
32 1 
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10.10 Example: Adaptive Integration 


An adaptive technique for numerical integration is presented in this section. It provides an opportunity 
to introduce several functions that call on other functions, including one that is recursive. Elementary 
techniques for numerical integration such as composite Simpson’s or trapezoidal rule work with uni- 
form partitions of the interval of integration. By contrast, this adaptive method uses finer partitions in 
regions in which the integrand is more variable. The program presented in this section “adapts” itself 
so that no user oversight is required in selecting the nonuniform mesh. 

The basic integrating function ROMS 1!MP (ROM berg, SIM pson) produces estimates of an inte- 
gral based upon a five-point Simpson’s rule (n = 4 subintervals) and a higher order Romberg five- 
point rule. The details of those rules can be found in numerical analysis texts such as Burden and 
Faires (1989). Notice, however, that the /NTegration WeighT ing factors for those integration schemes 
are given below in the rows of the matrix | NTWT and that the second row has weights in the 1 4 2 4 1 
ratio of composite Simpson’s rule. The function ROMS /MP depends on the weights in the matrix 
| NTWT and the function F, which is the integrand. Its arguments A and B give the endpoints of the 
interval of integration: 


INTWT+2 5 9 14 64 24 64 14 15 60 30 60 15 + 180 


vY Z+A ROMSIMP B 
C1] Z+(B-A)xINTWT +.x* F At+((B-A)+4)* 1415 a USES INTEGRAND F 


4 


The function ROMS | MP is used to approximate the integrals: 


3 T 
| >? dt | sin(t) dt 
0 0 


Notice that ROMS / MP results in two approximations of each of the definite integrals. The first num- 
ber in the result is the Romberg-based approximation, which is usually better than the second number, 
which is the Simpson approximation. The integral of sin(t) has exact value 2: 


Vv Z+F T Vv ZF T 
C1] Z+T+2+3 C1] Z+10T 
Vv Vv 
Z+0 ROMS!MP 3 Z+0 ROMSIMP 01 
Z Z 
3.721557892 3.71775948 1.998570732 2.004559755 
|-/Z |-/Z 
0.003798411642 0.005989023161 


The magnitude of the difference between the approximations given by ROMS | MP gives an esti- 
mate of the error in the approximation of the integral. Thus, ROMS | MP provides both an approxima- 
tion for the integral and an easy way to estimate the accuracy of that approximation. It is desirable to 
have a method that provides much more accuracy than ROMS | MP. 

The goal is a technique that uses the estimate of the error provided via ROMS | MP to determine 
where more computation is required and where the approximation is satisfactory. The function AIRS 
(Adaptive /ntegration: Romberg Simpson) is defined as follows: If A/ RS is applied to an interval 
[a, b] and the error of ROMS / MP on that interval is within tolerance, then A/AS results in the ap- 
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proximation given by ROMS | MP. If there is too much error, the result is the sum of approximations 
of the integrals provided by A/ RS on [a, m] and [m, b], where m is the midpoint of [a, b]. This defi- 
nition of A/ RS entails a natural recursion; see line 5. 

Notice on line 1 of A/ RS the result Z is assigned to be the result of ROMS / MP and the ESTi- 
mated ERRor, ESTERR, is computed. Line 3 determines whether the error is acceptable; if not, 
line 5 results in the sum of approximations on the “bisected” interval. The error tolerance is also effec- 
tively divided in half: The approximation provided by ROMS | MP on each half-interval is acceptable 
only if it has error less than half the tolerable error on the whole interval. 

It is convenient to control the error by considering the error per unit. The global variable 
TOLERRPU (TOLerable ERR or Per Unit) is multiplied by the magnitude of B-A to find the accept- 
able error on an interval of length B-A. That acceptable error is compared to the estimated error com- 
puted in line 1. The variable NARS used on line 2 counts the Number of calls to ROMS / MP for later 
analysis; it is not used by the algorithm. Here is A/ RS: 


Vv Z+A AIRS B;M 
C1] ESTERR<«|-/2<A ROMS!IMP B 
[2] NRS«NRS +1 
[3] +(ESTERR< TOLERRPU~x|B-A)/0 
[4] M-(A+B)=+2 
[5] Z-(A AIRS M)+M AIRS B 


Vv 


COUNT CALLS TO ROMS!MP 

TEST IF ESTIMATE IS ACCEPTABLE 
IF NOT, FIND THE MIDPOINT 
CALL AIRS ON HALF INTERVALS 


=> 2 D> D 


This function is now run on the two functions considered above. In the examples TOLERRPU is 
chosen so that the total tolerable error on the interval is 1E7 5: 


Y Z2+F T YV Z+F T 
C1] Z2+T+*2+3 C1] Z2+10T 
Vv Vv 
NRS +0 NRS «0 
TOLERRPU+1E™ 5-3 TOLERRPU+1E™ 5-01 
0 AIRS 3 0 AIRS 01 
3.744150642 3.744148676 1.999999925 2.00000559 
NRS NRS 
32 11 


Notice that the function t*? required more calls to the integrator function. That is not surprising since it 
has unbounded derivatives near 0. 
A user friendly version of this adaptive integration program is developed in Section 10.14. 


10.11 Quad: Input and Output 


In Section 3.12 the use of quad, LJ, for output was introduced. Recall that assignments to quad result in 
the display of data in the session log in the order that the quads are encountered. The displayed data are 
passed on as a result that is available for further computation: 


3+U]+2 LltA+2 2014 (I+ 3+5)+0)+1+1 
2 1 2 
3) 3. 4 


& © NM 
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Quad may also be used to request user input; this is indicated by writing a quad in an expression 
wherever input is desired. The user is prompted for input; the user’s response is evaluated and then 
used as an argument in place of the quad in the expression. For example, 


3+(] User types. 
UO: APL system requests input. 
5 User responds. 
8 Result of 3+, with DJ replaced by 5. 
O-0 User types. 
UI: APL system requests input (right argument). 
3 User response is assigned to right quad. 
UO: APL system requests input (left argument). 
2+5 User responds with an expression. 
2.333333333 Result of the requested quotient. 
'H! ',0 
: 
"JEFF ' Input may be character data. 
HI JEFF 
O-0 
L]: 
° 2:6 Meaningless entry. 
DOMAIN ERROR An error message is produced. 
5336 
A 
The user is reprompted. 
6 The right argument is entered. 
12 6 18 The left argument for +. 
213 


The meaningless entry resulted in an error, and the APL system prompted again for input. The errors 
that will cause the user to be reprompted depend upon the particular APL system. 
Quad input is used in an example in Section 10.13. 


10.12 Quote-Quad: Input and Output 


Quote-quad, (J, can be used for output that is not followed by a carriage return. It can also be used for 
literal input where the character nature of the input is understood so that quotes are not used to enclose 
the character vector. Assignments to quote-quad are catenated together “in the variable [}’ until a call 
to quad or quote-quad has occurred or the display width is exceeded, at which time the “contents” of [] 
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are displayed. Here is an example where quad input causes the display of the contents of [): 


(]}-'PLEASE ' 

[-'ENTER THE NUMBER OF BOOKS REQU/RED: ' 

N-Q) aCALL TO QUAD CAUSES DISPLAY OF [] CONTENTS 
PLEASE ENTER THE NUMBER OF BOOKS REQUI!/RED: 
O: 

25 

N 
25 


When quote-quad input is the reason that display of the contents of [J occurs, the user response is 
catenated to the displayed message and 1s available for use as the result of the quote-quad input. The 
user’s response to the name request below is underlined so that it may be distinguished from the com- 
puter output. Notice that no quotes are used in the user response: 


[«'PLEASE ENTER YOUR NAME: ' 
N-O) 

PLEASE ENTER YOUR NAME: JOSHUA SMITH 
N 

PLEASE ENTER YOUR NAME: JOSHUA SMITH 


To extract the user input from N, the function drop (Section 8.1) is used. For example, 241N 
discards the first 24 entries in the vector N leaving the user input: 


51 'ABCDEFG ' 31 'ABCDEFG' 241N 
FG DEFG JOSHUA SMITH 


At first glance it may seem inconvenient to have the user’s response catenated to the prompt mes- 
sage; however, this is quite handy for offering default options that may be modified by a respondent 
using editing keys: 


O-'ENTER YOUR CLASS: CS101' 
CLASS +0 
ENTER YOUR CLASS: CS101 
The user backspaces twice and types 
52. The modified line is as follows: 
ENTER YOUR CLASS: CS152 
CLASS 
ENTER YOUR CLASS: CS152 
18!CLASS 
CS152 


Quote-quad input is used in programs in which the program prompts for character input. Exiting a 
program that interminably requests character input is accomplished with a strong interrupt; see 
Section 3.7. 
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10.13 Example: Entering a Matrix Name-List 


Consider a simple utility function, NAMES /WN, for entering a character matrix without user concern 
about the length of the rows or needs for enclosing the character data in quotes. This might be used for 
entering a list of names with one name in each row. Throughout execution Z, M, and N are maintained 
so that the shape of Z is M, N. On line 4, the partial result Z and the newest row, ROW, which is the 
result of [] input, are extended to compatible lengths before being catenated along the first axis: 


Vv Z+NAMESIN;M;N;MAXM; ROW 
C1] (l- 'PLEASE ENTER THE NUMBER OF ROWS: ' 
[2] MAXM-{(] 9 M-N+-0 9 Z+0 Op' ' 
C3] (l+' PLEASE ENTER ROWS ONE AT A TIME: ' 
[4] MORE:ROW-[T] & N-NI pROW 9 Z+((M,N)TZ),011](1,N) pNtROW 
[5] +MORE x MAXM>M+M+1 


Vv 

NAMES + NAMES | N 
PLEASE ENTER THE NUMBER OF ROWS: 
U: 

6 
PLEASE ENTER ROWS ONE AT A TIME: 
JOHN User inputs six rows. 
SUSAN 
CHARLES 
WINNIE 
LINDA 
CHRISTY 

NAMES '* ' |NAMES ,'*' 
JOHN * JOHN * 
SUSAN *SUSAN * 
CHARLES * CHARLES * 
WINNIE *WINNIE * 
LINDA *LINDA * 
CHRISTY * CHRISTY « 

o NAMES 
6 7 


A version of this program with modified input and output styles is considered in Section 10.18. 
Both versions employ a matrix representation of name lists. Some systems provide enclosed or nested 
arrays that allow name lists to be represented as a vector of words. The present program, however, is 
valuable for inputting character matrices in general. 


10.14 Example: More Adaptive Integration 


The ADAP tive [NTegration program, ADAP! NT, initializes the variables used by A/ RS and 
prompts the user for input. The program results in global variables: TOL ERAPU gives the tolerable 
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error per unit step in terms of the total desired tolerance the user provides, and ZA/ holds the approxi- 
mations to the integral. The program also produces a report of the Romberg approximation for the inte- 
gral and the number of calls to ROMS | MP used: 


¥Y ADAPINT;A;B; INT 
C1] O-'WARNING: THE INTEGRAND IS ASSUMED TO BE THE FUNCTION F' 
[2] O-'PLEASE ENTER THE INTERVAL OF INTEGRATION AS A VECTOR: ' 
C3] INT“ 9 A+INT(1] 9 BeINTL2] 
C4] O+'PLEASE ENTER THE DESIRED TOLERANCE: ' 
[5] TOLERRPU~+|()+B-A 
C6] NRS «0 a NRS IS THE NUMBER OF CALLS TO ROMS !IMP 
C7] ZAI+A AIRS B a ZAI CONTAINS ADAPTIVE APPROXIMATIONS 
C8] O+' THE ESTIMATED INTEGRAL !S:' 
[9] O+-ZA/([1] 
C10] OU+'THE NUMBER OF CALLS TO THE INTEGRATOR WAS: ' 
C11] O+NRS 


4 


Consider an example in which the integrand is F(t) = t7”: 


ADAP |I NT 
WARNING: THE INTEGRAND IS ASSUMED TO BE THE FUNCTION F 
PLEASE ENTER THE INTERVAL OF INTEGRATION AS A VECTOR: 
O: 
0 3 
PLEASE ENTER THE DESIRED TOLERANCE: 
O: 
1E75 
THE ESTIMATED INTEGRAL IS: 
3.744150642 
THE NUMBER OF CALLS TO THE INTEGRATOR WAS: 
32 
ZA! 
3.744150642 3.744148676 


One of the surprising aspects of programming that ADAP / NT illustrates is that user prompts, 
variable initiation, and organization of output can take far more program space than the underlying 
computation. The function ADAP | NT is far longer than the functions used for the computations. 


10.15 Format 


The monadic function format, denoted *, results in a character array that has the same appearance as 
the displayed result of its right argument. Format is useful for making tables easier to read, merging 
text and data, and sharing information with non-APL systems. Notice that * produces no surprises in 
appearance, but that the shapes requested in the examples below provide a clue that characters are be- 
ing counted. For example, the fact that 9 +16 is 11 indicates that the character vector 416 consists 
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of the character 1, space, the character 2, space, ..., the character 6: 

716 ¥2 307 ¢'MAR!IBETH' 
1293 45 6 7 77 MAR |BETH 

777 

0716 072 3p7 0% 'MARIBETH' 
11 2 5 8 

¥-+3 4112233445566 '"N = ',%25 
~0.3333333333 1.122334455E11 N = 25 

9%-+3 07112233445566 o'N = ',%25 
13 14 6 


The appearances do depend upon system variables such as LIPP, and the exact shape of the result does 
vary to some extent from system to system. Notice that the last example allows both text and a numeric 
result to be displayed adjacently. Some other examples of that type are 


(2 4p'A = "),A 


Ue 13 4 6 7 
'THE AVERAGE OF THE ',(*9U),' ENTRIES OF U 1S:',4(+/U)+0U 
THE AVERAGE OF THE 5 ENTRIES OF U IS: 4.2 


The format function can also take a left argument. The left argument contains pairs of integers that 
specify the field widths and number of decimal places to be displayed. If only one pair is given, all 
columns are formatted accordingly; otherwise, a pair of integers is required for each column: 


Ae3 4 5°.715 


A 
3 1.5 1 0.75 0.6 
4 2 1.333333333 1 0.8 
rs) 2.5 1.666666667 1.25 1 
5 2tA 
3.00 1.50 1.00 0.75 0.60 
4.00 2.00 1.33 1.00 0.80 
5.00 2.50 1.67 1.25 1.00 
305162625 1 #A 
3.1.5 1.00 0.75 0.6 
4 2.0 1.33 1.00 0.8 
5 2.5 1.67 1.25 1.0 
30518462 5 1 A 
3 1.5 1.0000 0.75 0.6 
4 2.0 1.3333 1.00 0.8 
5 2.5 1.6667 1.25 1.0 
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Many systems have a related system function LIFMT (see Appendix B). Typical kinds of features 


allow the user to specify the width and number of decimal places for each column of matrix output, to 
format by an example row, to specify exponential or floating point formatting, to embed the data into 
given character decorator fields, to replace characters, such as minus for high minus, to fill in trailing 
zeros, and to insert commas for every third digit to the left of a decimal point. Features vary from sys- 


tem to system; see your system documentation. 


10.16 Example: Formatting an Interest Table 


Consider the “formatting” problem of inserting blanks into a large table of entries so that horizontal 
lines can followed. Here is an interest table for interest rates 6%, 8%, and 10% compounded annually 
for 1 to 15 years. Let UPP+«5. The blank rows are inserted using expansion (see Section 8.5) and a 
heading is added: 


OON DOA ON — 


A+(15 19115),8 1.06 1.08 1.1 
Be(17 91111 


C+' YEAR 


A 


awh eh eh eh eh 


awh awh at oth 


. 06 
.1236 
191 
.2625 
. 3382 
.4185 
. 5036 
. 5938 
.6895 
. 1908 
. 8983 
.0122 
1329 
. 2609 
. 3966 


. 06 
.1236 
.191 
.2625 
. 3382 


.4185 
. 5036 
.5938 
.6895 


1 O)XFA 
6% 8% 
08 1.1 
.1664 1.21 
.2597 1.331 
.3605 1.4641 
4693 1.6105 
5869 1.7716 
7138 1.9487 
8509 2.1436 
999 2.3579 
1589 2.5937 
3316 2.8531 
5182 3.1384 
7196 3.4523 
9372 3.7975 
1722 4.1772 
08 1.1 
1664 1.21 
2597 1.331 
3605 1.4641 
4693 1.6105 
5869 1.7716 
7138 1.9487 
8509 2.1436 
999 2.3579 


.* 115 


10% ',C1]'-',C11B 
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10 1.7908 2.1589 2.5937 
11 1.8983 2.3316 2.8531 
12 2.0122 2.5182 3.1384 
13 2.1329 2.7196 3.4523 
14 2.2609 2.9372 3.7975 
15 2.3966 3.1722 4.1772 
C 
YEAR 6 BZ 10% 
1 1.06 1.08 1.1 
2 1.1236 1.1664 1.21 
3 1.191 1.2597 1.331 
4 1.2625 1.3605 1.4641 
5 1.3382 1.4693 1.6105 
6 1.4185 1.5869 1.7716 
7 1.5036 1.7138 1.9487 
8 1.5938 1.8509 2.1436 
9 1.6895 1.999 2.3579 
10 1.7908 2.1589 2.5937 
11 1.8983 2.3316 2.8531 
12 2.0122 2.5182 3.1384 
13 2.1329 2.7196 93.4523 
14 2.2609 2.9372 3.7975 
15 2.3966 3.1722 4.1772 
10.17 Execute 


The monadic function execute, denoted £, is used to interpret character vectors as APL expressions. 
Thus, ¢'2+*8' means execute the three character string '2+*8' as an APL expression; the result is 
the number 256. This function is valuable in many ways. It allows numeric interpretation of character 
representations of data, it allows programs to use APL functions or variables whose names are pro- 
vided by quote-quad input, and it allows execution of an expression created within a function: 


'3+5' 1+2'°3.14' 2'Ae\5' 

3+5 4.14 (No display.) 
2'3+5' *7p'2+' A 

8 8 123 45 
2'3* 72! 20<2'23 ~23 50' Bxe'Be\3' 


0.1111111111 1 0 1 149 
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10.18 Example: Entering a Matrix Name-List, Revisited 


Consider the program NAMES! N2, which is a modification of the function NAMES / WN given in 
Section 10.13. It has slightly cleaner input and output and prompts for the name of the matrix it creates. 

On lines 2 and 4, the drops separate the [J prompt used on the previous lines from the user re- 
sponse. Note the use of execute on line 4, which gives a numerical value indicated by a character 


string. On line 8, execute assigns the result of the input to the name previously indicated by the user. 
Here is NAMES! N2: 


VY NAMES !IN2;NAM;M;N;MAXM; ROW; Z 
C1] []-' ENTER A NAME FOR THE MATRIX: 
[2] NAM-29 109 
C3] []-'ENTER THE NUMBER OF ROWS: ' 
[4] MAXM- 22610) 
[5] O-'ENTER THE ROWS:' % M«N+-0 9 Z+0 Op' ' 
[6] MORE:ROW-[] &© N-NI pROW 9 Z+((M,N)TZ),011](1,N) pNtT ROW 
[7] + (MAXM>M+«M+1 ) /MORE 
[8] ¢NAM,'+«Z' 


Vv 


NAMES | N2 
ENTER A NAME FOR THE MATRIX: MAT 1 User response underlined. 
ENTER THE NUMBER OF ROWS: 3 User response underlined. 
ENTER THE ROWS: 
ALPHA User enters three lines. 
BETA 
GAMMA 


MAT 1 Check the matrix. 
ALPHA 
BETA 
GAMMA 


10.19 Example: Matrix to a Power-of-2 Power 


The execute function provides a simple way to compute high powers of a matrix using repeated squar- 
ing, without any branching or loops. First notice, 


A> is A+.xA Which is # 5p9'A+.xAe' 
A* is At+.xA+At+.xA Which is #£11p'At+.xAc' 
A® is At. xAtAt+.xArAt.xA Whichis !#£179'At+.xAr' 


is the result of executing (5+6xN-1)p'At+.xArc' 
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An APL function to compute these Exponential POWers is EPOW: 


Vv Z+A EPOW N 
C1] Z-2(5+6xN-1)p'At.xAc' 


Vv 

A B 
12 3 0.10.6 0.3 
4 5 6 0.30.4 0.3 
789 0.2 0.6 0.2 

A EPOW 1 B EPOW 1 
30 36 42 0.25 0.48 0.27 
66 81 96 0.21 0.52 0.27 
102 126 150 0.24 0.48 0.28 

A EPOW 2 B EPOW 4 
7560 9288 11016 0.2272727273 0.5 0.2727272727 
17118 21033 24948 0.2272727273 0.5 0.2727272727 
26676 32778 38880 0.2272727273 0.5 0.2727272727 


Notice the entries of the 4th power of A are huge, whereas the 16th power of the Markov matrix B has 
constant rows of modest magnitude. 


10.20 Functions as Arguments of Functions 


It is sometimes convenient to have a function serve as an explicit argument to a function. Execute pro- 
vides an easy way for calling a function given as an argument. Previously, functions were called by a 
specific name and were not explicit arguments of the calling function. 
Consider the problem of computing the slope of a secant line, m,,,, through two given points, 
(a, f(a)) and (b, f(b)), on the graph of a function f(x): 
f(a) — fo) 


sec a-—b 


Here the problem of having the function f as an argument to be specified at execution time is consid- 
ered. Two solutions are presented. 

First, consider the solution when the function is addressed by its name. Suppose functions F, 
LN, and COSH are already defined in the workspace. The function MSEC takes a function name 
given as a character vector as its left argument and the two points of evaluation as its right argument. 
Execute is applied to the function name catenated to a string giving the name of the variable containing 
the points. Some examples are computed: 


YVZeF T Vv ZeLN T Yv Z+COSH XxX 
C1] Z+10T C1] Z+eT C1] Z2+0.5*x(*X)+%-X 


Vv Vv Vv 


Vv Z+FN MSEC XxX 
C1] Z+(-/2FN,' X')+-/X 


4 
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'F' MSEC 0 .1 
0.9983341665 


'F' MSEC 0 .01 
0.9999833334 


'LN' MSEC 1 1.1 
0.953101798 


"COSH' MSEC 0 .1 
0.05004168056 


The second solution involves taking an expression describing the function as left argument. By 
convention the independent variable is assumed to be X. Execute can now be applied directly to the 
expression describing the function. Some examples are given: 


v Z2+EXPR MSEC X 
C1] Z+(-/2EXPR)=-/X 


Vv 


'X*2' MSEC 0 1 


'10X' MSEC 0 .1 
0.9983341665 


'(14+X)+1-X' MSEC 0 .1 
2.222222222 


Exercises 


1. Write definitions of monadic functions that take a vector argument and return a result that com- 
pute the (a) arithmetic mean, (b) geometric mean, (c) harmonic mean of a list of positive numbers. 
2. Write a program MEANS that has a vector argument, does not pass on a result, and calls on the 
three functions of the previous exercise, displaying the results together with appropriate names. 
3. Compare the output of the following version of STAT! ST 1 CS with that given in Example 10.2; 
use the same vector V: 


VY STATISTICS V 


C1] 21p' ' 

[2] RANGE: ',% RANGE V 
C3] MODE(S): ',% MODE |.5+V 
[4] ' MEDIAN: ',* MEDIAN V 
[5] AVERAGE: ',* AVG V 

C6] "STANDARD DEVIATION: ',* SD V 

[7] " 

[8] "HISTOGRAM: ' 


[9] HIST L.5+V 
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14. 


15. 


17. 
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(Continuation of Example 10.5.) The Borda alternative is the alternative (if there is a unique one) 
that receives the lowest total sum of the preference rankings assigned by the voters. Write a 
monadic function with argument B (the Ballot) that determines the Borda alternative or indicates 
that there is none. Try your function on Ballots B and C in Example 10.5. 

(Continuation of Example 10.5.) In the theory of voting the Copeland count for an alternative is 
the difference between the number of wins and the number of losses in pairwise contests of that 
alternative with each of the other alternatives [see Straffin (1980)]. Write a monadic function 
COPELAND with argument B (the Ballot) that produces the vector of Copeland counts for 
the alternatives on the Ballot. Apply your function to ballots B and C in Example 10.5. (Hint: 
Use B+. <&B.) 

Write a monadic function COPEW!/ WN that uses COPELAND (Exercise 5) to determine the 
unique alternative with highest Copeland count or indicates there is none. 

Write a function REMOVEKS that takes a positive integer N as the argument and returns the 
largest factor of N that has no factor of K in it. See REMOVE 2S in Section 10.4. 

Write alternative versions of (a) MAJOR / TY, (b) PLURAL | TY, and (c) BORDA that use no 
branches. See Section 10.5 and Exercise 4. 

Write an alternative version of REMOVE 2S (Section 10.3) that does not use branching. 

Write an alternative version of REMOVEKS that does not use branching. See Exercise 7. 
Rewrite | TERNEWT in Section 3.10 with line labels and branches using compression. 
Rewrite the three-way branch in line 3 of B | SECTME THOD in Section 10.7, replacing it with 
a branch determined by indexing a vector of line labels. 

Compare the effects of 


(a) *+(N<10)/L INELABEL 
(b) +(N<10)pL/NELABEL 
(c) *(N<10)TLINELABEL 
(d) ~L/INELABEL x\(N<10) 


Describe the effect of running the niladic function 


v ROLLEM 
C1] + #/[]+?6 6 


Vv 


Observe the results from TRANS when V is any four-element numeric vector. Then explain 
what the function does. 


Vv TRANS V 
C1] +V/O0e[]+V+1V-10V 


Vv 


For further information see Magyar. 

Write a function THREE 1 TWO that transforms a positive integer N by the following procedure: 
Triple it, add 1 to that, then remove all factors of 2 from that result (e.g., 7 yields 21, 22, and 
finally 11 by this scheme). Repeat the application of this procedure until the number 1 occurs 
or the scheme leads to a repeating cycle of numbers. Thus, starting with 7 would lead to the 
sequence: 7, 11, 17, 13, 5, 1, at which point execution should stop. The function should display 
the sequence generated. 

Predict the result of the following expressions when followed by the indicated input. Check 
your results. 


(a) O+0 followed by 3 and 5 6 7 
(b) O+0-O followed by 3 and 5 6 7 
d5 6 7 


(c) O+0+O+0) followed by 3 an and ~ 5 


18. 


20. 


21. 


27. 
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Write a program ROWOP for accomplishing elementary row operations on a matrix. The pro- 
gram should have a matrix A as its right argument and prompt the user to select one of the three 
elementary row operations (or to exit). It should also prompt for scale factors and row indices as 
appropriate. The modified matrix should be displayed and further changes be possible. The final 
modified matrix should be returned as a result. 

Predict the result of the following expressions when followed by the indicated input. Check 
your results. 


(a) [-'HERE ' 9% Af] followed by |S SAM. What is A and 9A? 
(b) []<«'HERE ' 9% Bef] followed by '/S SAM". What is B and 9B? 


Use ADAP I NT from Section 10.14 to approximate the following integrals with total tolerances 
(i) 1E°5 (ii) 1E7~ 10. 


1 4 8 ] 
(a) | ze (b) | 7a 
(c) | Vt dt (d) | sin”'(t) dt 
0 0 


Write a function ADAP | NT 2 that is a modification of ADAP | NT in Section 10.14 so that the 
user is prompted for a maximum number of calls to ROMS IMP, and ADAP I NT 2 halts with a 
message if the maximum number of calls is exceeded. Test your answer on the problems in Exer- 
cise 20 with 100 as the maximum number of calls to ROMS | MP. 

Write a function ADAP | NT3 (a modification of ADAP | NT in Section 10.14) that creates the 
matrix global variable /NTA/ that contains as rows the intervals used by ADAP INT. The 
intervals should be ordered when the program finishes. Test your answer on the problems from 
Exercise 20. 

Predict the effect of the following expressions. Check your work. 


(a) 472 2916 (b) '*', (F2 2016),'*' (ec) 'N = ',(415),'° ETC.' 


Write a function SK / PROW that inserts a blank row after every K rows of the matrix A, where 
K is the left argument and A is the right argument. The function should handle both arguments 
that are numeric or arguments that are character. 

Modify the formatting of the interest table matrix A given in Section 10.16 so that there are only 
two blanks between the first and second columns. Include trailing zeros. 

Write a function !NTERESTTABLE that takes as its left argument a number of years and 
takes as a right argument a vector of percentages. It should yield an interest table resulting from 
annual compounding for the years up to the indicated year and for the given percentages. Have 
the result skip a line after each 5 years and display data to 5 significant figures. Head the rows by 
the year number and the columns by the percentages. Test your program using 20 years and 6, 8, 
7.5, and 11%. 

Write a function L /NECOL that takes a numeric matrix as its only argument and results in a 
character matrix with vertical bars inserted on the left and right side of each column. For example, 


A LINECOL A 
1 2 2.286 | 1 | 2 | 2.286 | 
3 4 1.234 | 3 t 4 1 1.234 | 
5 6 3.512 | 5 | 6 | 3.512 | 


Test L |NECOL on A and on (15) °.=16. 
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Predict the effect of the following expressions. Check your work. 
(a) 25p9'3t' (b) #2£(5p'A'),'#2 2914' (c) #01-5p'3t' 


Use the program in Section 10.19 to find the fourth power of the matrices below. Observe 
whether the high powers have large entries and seem to have uniform rows. 


(a) 1 1 1 (b) 1 —1 I 
1 1 | ~ I 1 1 
1 1 1 1 1 
(c) 0.6 0.2 0.2 (d) 0.1 0.2 0.6 


0.1 0.4 0.5 0.3 0.5 0.2 
0.3 0.3 0.4 0.2 0.3 0.2 

(e) 1 0 1 (f) 0.25 1.5 1.25 
0 1 0 0.25 0 ~ 0.25 
1 0 1 ~0.25 ~0.5 ~0.25 


Write a function MPOW that computes the Nth power of a matrix. The left argument should be 
the matrix and the right argument should be the power. Avoid using a loop, branches, or recur- 
sion. See Section 10.19. 

Run MPOW to compute the 7th, 15th, and 16th powers of the matrices from Exercise 29. 
Predict the result of the following expressions. Check your work. 


(a) U+6-17 (b) V«'5 6 7' 
aU eV 
etU 3eV 


UA .=2tU VA,=F2V 


Appendix A 
Help, Error Messages, 
and Debugging 


Appendix A contains several kinds of help for APL users. It includes quick resolutions of unexpected 
behavior, a discussion of APL error messages, and use of suspended functions for debugging. 


A.l Surprises for New Users 


Here are some difficulties commonly encountered by new APL users, as well as their resolutions: 
Symptom Remarks 


[3] as a prompt System repeatedly prompts with a number in square brackets. This means func- 
tion editing mode has been entered, possibly inadvertently. Use v to close defi- 
nition mode. See Section 3.1. 


UL: as a prompt The system is awaiting numeric input. This often occurs as an error when the 
del is left off of a request to display a function definition. The simplest response 
is to enter a number. Alternately, a strong break, (ctrl-break)—(ctrl-break), can 
be used. See Section 3.7. 


No response to input This may mean that the system is gathering character data from the keyboard 
(in response to [J). A strong break ((ctrl-break)—(ctrl-break)) can be used to in- 
terrupt the input process. See Section 3.7. Some systems exhibit this behavior 
if a quotation mark around character data is not closed with a second quotation 
mark. Those systems are “gathering” the carriage returns as part of literal input. 


Variable disappeared A user-entered variable seems to disappear without the user erasing it. A varia- 
tion on this problem occurs when the variable value is changed. First, look at 
) VARS to check that the variable name was not misspelled. Another possibil- 
ity is that a program that has a global variable with the same name has been 
run. Check any programs that were run. A more subtle reason for the problem 
occurs when a suspended function has a local variable with the same name. In 
that case, clear suspended functions with ) RESET. See Sections 3.7 and A.3. 
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A.2 Error Messages 


Error messages provide a clue into the reason a difficulty 1s encountered. Most error messages are 
descriptive enough to be helpful. This section describes some frequently occurring errors. 

A syntax error is an error in the structure of an expression. These occur when a requested compu- 
tation does not describe a meaningful order of computation. For example, parentheses may be mis- 
matched or a function may not have the correct number of arguments. Notice the system indicates the 
error, retypes the line, possibly with some spacing changes, and places a caret under the position where 
the error was recognized. Here are examples: 


8)+2 The parenthesis is not matched. 
SYNTAX ERROR 
8)+2 
A 
3x12+ The addition sign has no right argument. 
SYNTAX ERROR 
3x12+ 
A 
“A+eit+2 High minus is not a function. 
SYNTAX ERROR 
~Ae1+2 
A 
A A was assigned a value by the previous 
3 flawed expression. 
4A Juxtaposition is not a function. 
SYNTAX ERROR 
4A 
A 


The example ~ A+ 1 +2 is interesting because an error occurred but the computation was accomplished 
to the point where the assignment appeared. 
Reference to an undefined variable or function results in a value error. For example, 


) CLEAR No user-assigned variables or functions are in the workspace. 


St+A 

VALUE ERROR 
3t+A 
A 


F45 6 

VALUE ERROR 
F 45 6 
A 
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An error that occurs when a computation is requested on data outside the domain of the function 
results in a domain error. For example, an attempt to divide by QO or take the logarithm of 0 results in 
a domain error. Some systems produce domain errors when the square root of a negative number is re- 
quested; other systems are extended to provide a complex root. Examples are 


+0 Reciprocal of 0 is not defined. 
DOMAIN ERROR 

+0 

A 

3 4 1=1 2 0 1+0 is not defined. 


DOMAIN ERROR 
341:+1 2 0 


A 
0-0 APL does assign a value to 0+0. 
1 
@0 The logarithm of O is not defined. 
DOMAIN ERROR 
@0 
A 
(X+1)+Y+0 Notice both arguments are successfully 
DOMAIN ERROR computed before the error occurs. 
(X+1)+Y+0 
A 
Xx 
1 
Y 
0 
"A'+'B' Addition is not defined for characters. 
DOMAIN ERROR 
, A ' + ' B ' 
A 
An index error occurs when an array is indexed outside the meaningful range of indices. For example, 
A B 
2 4 6 8 10 12 123 4 
oA 5 6 7 8 
6 Bl2;1 3] 
A[4] 5 7 
8 BC1;5] 
A(7] INDEX ERROR 
INDEX ERROR BCl1;5] 
A 


Al7] 
A 
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Al'2 3] 

INDEX ERROR 
A{"2 3] 
A 


Many APL functions require that the number of entries along an axis match. For example, two 
vectors can be added, 2 3 8+7 Q 4, but the number of entries on each side must match (unless 
one is a single element that is extended to match the length of the other side). When the number of 
components on each side differs, there is a length error. A length error is an indication that the APL 
function used requires the length along some axes to match but that the axes do not match length for 
the given arguments. For example, 


23 4+6 1 Pairs cannot be added to triples. 
LENGTH ERROR 
234+ 61 
A 
Ae3 3019 
B+3 201 2 0 
A+.xB The product of a 3-by-3 with a 3-by-2 
7 4 matrix is meaningful. See Section 4.1 
16 13 for the matrix product. 
25 22 
B+.xA The product of a 3-by-3 with a 2-by-3 
LENGTH ERROR matrix is not meaningful. 
B+.xA 
A 
12 3TA Take on a matrix requires a two-component 
LENGTH ERROR left argument. See Section 8.3. 
123 TA 
A 


Sometimes an APL expression produces an error because the computation requested requires that 
the arguments have certain dimensions. For example, a vector cannot be added to a matrix and one cannot 
seek the index of data in a reference matrix (it is only possible to seek the index in a reference vector; 
see Section 9.4). Failure to meet such dimensionality conditions produces a rank error. Examples are 


A 
12 3 
45 6 
7 8 9 
A+1 2 3 A matrix cannot be added to a vector. 
RANK ERROR 


A+ 1 2 3 
A 
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15 331A The indices of Ain 1 5 3 can be found. 
14 3 
42 4 
444 

Ail 5 3 The indices o0f 1 5 3 in Ais nota 
RANK ERROR meaningful request. 

Ai 15 3 

A 


Large computations can exceed the available computer memory. Such situations result in a 
workspace full error message. Of course, this error depends upon the computer hardware, the amount 
of memory allocated to APL, and the amount of space used by other functions and data in the 
workspace. Examples are 


1000000p2 3+7 
WS FULL 
1000000p2 3+7 
A 


A«(?10000100)°.+*~1+1101 
WS FULL 
A«(?10000100)°.+* 141101 
A 


A result error occurs when a result required by a function is not available. This can happen when 
a function that does not return a result is part of a computation. Consider the function F /BS, which 
outputs the first N Fibonacci numbers but does not return a result; that is, the results are not available 
for further computation. See Section 10.1 for a discussion of functions that do not return a result. An 
example using F / BS follows: 


Vv FIBS N;K;OLDZ;NEWZ;2Z 
C1] OLDZ+0 9 ()+Z+1 9 Ket 
[2] *+3xK<N 
C3] NEWZ+Z+OLDZ 
[4] OLDZ+Z % (+ Z-NEWZ 9 K+K+1 


[5] +2 
Vv 
FIBS 8 
, 
{ 
2 
3 
rs) 
8 
13 
21 
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oF IBS 8 

, 

, 

2 

3 

5 

8 

13 

21 

RESULT ERROR 
oF IBS 8 
A 


Computations that are well posed might not run successfully because of space limitations or be- 
cause execution time is excessive. Such a computation can be interrupted with the use of a strong or 
a weak interrupt. These are effected with one or two taps of the attention or the (ctrl-break) key (see 
Section 3.7): 


110000 

12345678 9101112313 1415 1617 18 19 20 21 22 23 24 
25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 
44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 
63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 


(Some details are omitted.) 


1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 

1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 
(You strike the (control-break) key.) 

1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 


Output halts after you strike the interrupt key. 

A common and serious reason to interrupt a computation is that it is stuck in an infinite loop or it 
is taking far too long. An example of a function requiring such an interrupt might be the F / BS func- 
tion given above run on a large problem: 


FIBS 1000 


“Oa awn - — 


Many details are deleted. 


7.577916187E32 
1.226132595E33 
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The (ctrl-break) key is struck. 
FIBS(3] 


This interrupt leaves the function in a suspended state that should be cleared with ) RESET (see 
Section A.3). 

Note that the error message a particular “bad” computation produces may be difficult to determine. 
For example, should 'ABC'+' DE' be a domain error because addition is not defined for character 
data or should it be a length error because the addition arguments are not the same length? Indeed, 
which error results varies from system to system. Most of the errors that have been described here are 
put into the event reporting system variable LIER (see Appendix B). 


A.3 Suspended Functions 


When an error is encountered during execution of a function, APL “suspends” the function and issues 
an appropriate error message. The following is an example with RHEP 2 and F from Section 3.3. The 
integrand is taken to be f(t) = 1/t. The examples include a case in which the X values contain the 
entry 0 causing a domain error. The command ) S/ requests display of the state indicator: 


Vv Z+N RHEP2 INT;A;B;DX;X;Y 
C1] A-INTC(1] 
[2] B-INTL2] 
[3] DX+(B-A)=N 
[4] X+At+DXxiN 
[5] Y+F X 
[6] Z+DXx+/Y 


Vv 

Vv Z+F T 
C1] Z2+1-+T 

Vv 


) VARS No variables in the workspace. 


8 RHEP2 1 2 Approximate some integrals. 
0.6628718504 

8 RHEP2 ~2 “1 
~0.7253718504 


8 RHEP2 0 2 Try an improper integral. 
2.717857143 
8 RHEP2 ~2 0 Function evaluation at 0 causes error. 


DOMAIN ERROR 
Flt] 2Z+1+T 
A 


)S/ View the state indicator. 
Fl1] «* 
RHEP2(5] 
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The state indicator shows that the function F was suspended on line 1. The asterisk indicates the fact that 
F is suspended. The function RHEP 2 called F on line 5. The function RHEP 2 is said to be pendant. 
Notice in the next example that the variables of F and RHEP2 are available for display and 
manipulation. This environment can be especially helpful for debugging a program. Here the fact that 
X (inside RHEP 2) and T (inside F) contain 0 allows you to see the division by 0 problem quickly. 
Some confusion can arise when several global variables and the local variables of functions called are 
available. The system command ) S/ V gives the variables of the suspended and pendant functions: 


) VARS 
A B DX INT N T X 
A 
~2 
X 
“1.75 “1.5 “1.25 ~1 “0.75 ~0.5 “0.25 0 
T 
“1.75 “1.5 “1.25 ~1 “0.75 ~0.5 “0.25 0 
Zz 
VALUE ERROR 
Zz 
A 
)SIV Or )S/NL on some systems. 
Flt] +* 2 T 
RHEP2(5] Zz N INT A B DX 
X Y 


Even though F is the suspended function the variables A, B, and so on, from RHEP 2 are available 
in the workspace. This is evidence of the fact that variables local to a function, like RHEP 2, are 
available to the functions that are called internal to that function. If variables of the same name appear 
in the workspace, they are not available until the suspension is cleared. Thus, it is important to clear 
the state indicator promptly. 

At this point, you may choose to clear the state indicator with ) RESET or make some modifica- 
tions and try to complete the execution. In the example at hand, the most likely way to continue would 
be to reset the state indicator and do a more appropriate computation. It is possible, however, to 
change the O entry in T and continue. For example, setting T[8]+ .0000001, you continue the 
execution with the interactive branch statement +1, which indicates that line 1 of the suspended func- 
tion F should be recomputed and processing of functions pendant on that result should continue: 


TC8]+0.0000001 
T 
“1.75 “1.5 “1.25 -1 “0.75 “0.5 ~0.25 0.0000001 
> 
2499997 .407 
Notice that the result is not very useful. Care should be used in restarting computations this way; 


for example, part of a function line may have incremented a counter before the error was evoked 
restarting the computation with that line may inappropriately increment the counter again. 


You can save a workspace containing suspended and pendant functions and investigate the situ- 
ation later. It is possible for several functions to be suspended at the same time. The most recent sus- 
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pension is at the “top” of the state indicator. It is sometimes useful to clear the suspended functions one 
at a time. The niladic (no argument) branch resets only the top suspension. For example, 


8 RHEP2 ~2 0 Error 1: RHEP 2 calling F at 0. 
DOMAIN ERROR 
F(1] Ze1+T 
A 


FOQg Error 2: F at O. 
DOMAIN ERROR 
F(1] Z2-17+T 
A 


8 RHEP2 1 2 The suspensions above do not interfere 
0.6628718504 with proper computations. 


16 RHEP2 ~10 0 Error 3: RHEP 2 calling F at 0. 
DOMAIN ERROR 
F(1] Z+1+T 
A 


)S/ Observe the three suspensions. 
Fli] * 
RHEP2(5] 
Fl1] «* 
Flij] * 
RHEP2(5] 
of 
16 Hence error 3 produced the “current” T. 
> No-argument branch clears the top suspension. 
)S!/ 
Fl1] * 
Flt] * 
RHEP2(5] 
T The value of T from error 2. 
09 
) RESET Entirely clear the state indicator. 
)S!/ 


A.4 Example: Debugging With Quad Output 


Here are procedures to try when an error has occurred during function execution: Check that the proper 
expression was entered, check near the location indicated by the error message for obvious mistakes, 
display relevant variables, and experiment with the line in error as described in Section A.3. These 
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techniques may prove inadequate on lengthy functions and functions involving loops. In that case, a 
simple approach is to display the results of intermediate computations with quad output. Careful selec- 
tion and alteration of which results are displayed can help pinpoint the error. Section A.5 presents 
some additional approaches. 

Consider an illustration of debugging with the use of quad output. Here is a flawed function FAC 
intended to compute factorials with a loop; FAC runs without stopping: 


Vv Z+FAC N:K 
C1] Ze 
[2] K+0O 
C3] 74+*K<N 
[4] K+K+1 
(5] Z+Z*K 


(6) +3 
Vv 
FAC 5 
It does not stop, the user interrupts. 
FAC(6] 
Check some values. 
1 
K 
4 


The Z is obviously wrong. You do not see the errors in FAC. Insert some quad output after line 5 
to observe how Z changes: 


Vv Z+FAC N;K 
C1] Z+1 
[2] K+0O 
C3] 7AtK<N 
[4] K+K+1 
[5] Z+Z+*K 
[6] (]-Z 
C7] +3 


FAC 5 Try again. 


1 
1 
1 
Many 1s. 
1 User interrupts. 


FAC(5] 
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Notice Z is not changing. Reset, then modify line 6 to display both K and Z using U+K , Z: 
FAC 5 Try again. 


WONnM ~~ Of WD — 
pa a ee ae Cee Ca Cae 


User interrupts. 


FACL6] 


How can Z remain constant when K is changing? According to line 5, the value of Z should be 
the old Z times K. But the multiplication is not occurring. Multiplication is signified with * not the 
star. Correcting line 5 and line 3 and deleting the quad output fixes FAC. 


A.5 Setting Traces and Stops 


Consider the function M/D, which is to be used to approximate definite integrals using the midpoint 
rule. Notice that M/D is similar to RHEP 2, except line 4 has been adjusted. Line 4 should select the 
midpoints of the approximating subintervals. This has not been done correctly, however, for the follow- 
ing illustration. M/ D is tested by applying it to a known integral, in this case to an integral giving In(2): 


Vv Z¢N MID INT;A;B;DX;X;Y 
C1] A+INT(1] 
[2] Be INTC2] 
C3] DX+(B-A)=N 
[4] X+A+~0.5+DXx iN 
[5] Y+F X 
[6] Z+DXx+/Y 


Vv 

v Z2+F T 
C1] Z2+1-T 

Vv 


100 MID 1 2 Something is wrong. 
1.09197525 

®2 In(2). 
0.6931471806 

1000 MID 1 2 
1.097945918 

5 MID 1 2 Small case is wrong, too. 
0.9769341769 
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The next step is to introduce a trace vector. This results in the display of the last quantity com- 
puted on each line preceded by the function name and line number. The trace is set by assigning to a 
“special name” the line numbers to be traced. The special name is the function name with T4 as a 
prefix. For example, T4M/D+3 4 5 would set a trace on lines 3, 4, and 5 of the function M/D; 
whenever those lines are executed the last result is displayed: 


T4M/ID~-\6 Trace all the lines of M/D. 
5 MID 1 2 Run the small case again. 
MIiD(C1) 1 
MID(C2) 2 
MID(3] 0.2 


MiID(C4] 0.7 0.9 1.11.3 1.5 

MID(5] 1.428571429 1.111111111 0.9090909091 0.7692307692 
0.6666666667 

MID(6] 0.9769341769 

0.9769341769 


Notice that the values of X on line 4 are wrong. This is not a selection of points from the inter- 
val [1,2]. Line 4 of M/D is corrected and the small case is run again. The trace is removed with 
T4M/ID~\0: 


Vv MID[4] Line 4 is corrected. 
[4] X+A+DXx"0.5+1N Y 


5 MID 1 2 Notice line 4 gives the correct X. 
MID(1] 1 
MID(C2] 2 
MID(3] 0.2 
MID(C4] 1.11.31.5 1.7 1.9 
MID(5] 0O.9090909091 0.7692307692 0.666666666/7 0.5882352941 
0.5263157895 
MID(6] 0.6919078857 
0.6919078857 


T4MID~-\0 The trace is removed. 

100 MID 1 2 It works. 
0.6931440556 

@2 


0.6931471806 


The function is now working correctly. 

Consider an alternate method for discovering the error. Perhaps the function M/D is an edited 
version of RHEP 2 so that the offending line is very likely the edited line 4. The system can be in- 
structed to stop before any given line numbers. The stop is set by assigning the lines to be stopped to 
the special name given by the function name with S 4 as a prefix. Execution will be suspended imme- 
diately before execution of the indicated lines. For example, S4M/D+«5 will request a halt before 
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line 5 is executed. The faulty M/D is below; F is the reciprocal function as before: 
Vv Z¢N MID INT;A;B;DX;X;Y 


C1] A+ INT(1] 

[2] B-INTL2] 

C3] DX+(B-A)=N 

[4] X+A+~0.5+DX*iN 
[5] Y+F X 

C6] Z+DXx+/Y 


S4MID+«5 

5 MID 1 2 
MID(5] * 

X 
0.70.9 1.1 1.3 1.5 


X+A+0.5+DXx1N 
X 
1.7 1.9 2.1 2.3 2.5 


X+A+DXx~0.5+ 1N 
X 
1.11.3 1.5 1.7 1.9 
*5 
0.6919078857 


VMID(4] 


[4] X+A+DXx~0.5+1N ¥V 


100 MID 1 2 
MID(5] * 

#5 
0.6931440556 

S4MID+-\0 


The stop is requested. 


Check on the value of X. 


Try another expression for X. 
This is wron~, too. 

Another try for X. 

Of course! 

Finish running M/D. 


Correct line 4. 


Try more subintervals. 


Remove the stop. 
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Some of the features of the APL workspace environment were introduced in Chapters 1 and 3. This 
appendix reviews and completes that discussion and gives some examples of managing workspaces and 
their contents. It ends with system commands, system variables, and system functions. Most APL sys- 
tems provide additional facilities for interfacing with file systems, the operating system, and graphics 
displays; those features vary considerably from system to system; see your system documentation. 

When an APL session begins, some computer memory is allocated for the active workspace. This 
provides an environment that allows the user to define variables and functions. Those functions may be 
executed and the variables used. These can be readily saved. The default active workspace is a “clear” 
workspace; that is, one that contains no user-defined functions or variables but does contain system 
variables with default values. 


B.1 Workspace Contents: Saving and Loading 


Consider an example session where some of the work from Chapter 3 had been entered into the com- 
puter. The functions and variables defined could be displayed via the system commands ) FNS and 
) VARS. Since several functions and variables have been entered and the functions have been de- 
bugged, it is desirable to save these. These are saved with the workspace name CHAP 3; then the 
workspace is cleared and CHAP 3 is retrieved: 


) FNS 
AVG DF DOT FAC | TERNEWT | TERNEWT2 
POLYVAL RAND RANREAL RHEP RHEP 2 
) VARS 
A B C DX N S x Y 
OPP+-15 


)SAVE CHAP3 Saves active workspace as CHAP 3. 
CHAP3 SAVED 1989-02-14 02:44:54 


) CLEAR 

) FNS No user-defined functions or 

) VARS variables in a clear workspace. 
LIPP 
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) LOAD CHAP3 Replace active workspace by CHAP 3. 
SAVED 1989-02-14 02:44:54 


) FNS 
AVG DF DOT FAC | TERNEWT | TERNEWT 2 
POLYVAL RAND RANREAL RHEP RHEP 2 
) VARS 
A B C DX N S X Y 
OPP 


15 


Notice that the save command caused a short message to appear. The command ) CLEAR 
removed all the user-defined variables and functions and restored all system variables to their default 
values. The load command cleared the active workspace and loaded the functions, variables, and sys- 
tem variables stored in CHAP 3. After the load command, the active workspace name is CHAP 3. 
The active workspace name can be determined with the WorkSpace /Dentification command )WS/D. 

Now suppose only the functions related to calculus computations are desired. The functions and 
variables from CHAP 3 that are not needed can be erased and a new workspace, CALC, stored: 


)WS ID 

IS CHAP3 
)ERASE AVG DOT POLYVAL FAC RAND RANREAL X Y S A B 
) FNS 

DF F | TERNEWT | TERNEWT 2 RHEP RHEP 2 
) VARS 

C DX N 
)SAVE CALC 

CALC SAVED 1989-02-14 02:45:59 
)WS 1D 

IS CALC 


Notice that the use of )SAVE CALC changed the name of the active workspace to CALC. 
This workspace should contain the functions AVG and DOT. Adding those functions to the active 
workspace can be accomplished with }COPY CHAP3 DOT AVG, where the copy command 
copies the two indicated functions from the CHAP3 workspace. Variables or system variables can also 
be copied: 


)COPY CHAP3 DOT AVG 
CHAP3 SAVED 1989-02-14 02:44:54 


) FNS 
AVG DF DOT F | TERNEWT | TERNEWT 2 
RHEP RHEP 2 

) SAVE 


CALC SAVED 1989-02-14 02:49:27 


This last command stored the latest version of CALC; the previously saved version of CALC is 
overwritten. 


174 Appendix B_ Workspace Environment 


B.2. Workspace Management 


The workspaces stored on the default disk drive can be determined using the )L /B command. A 
library can be thought of as a collection of workspaces (and other files on some systems). If the 
two workspaces discussed in Section B.1 have been saved, the ) L /B command lists them. Then 
a workspace is duplicated and an attempt is made to save the workspace onto an already existing 
workspace: 


)LIB 

CALC CHAP 3 
)WS 1D 

IS CALC 
)SAVE TEMP 

TEMP SAVED 1989-02-14 03:01:16 
)LIB 

CALC CHAP 3 TEMP 
)WS 1D 

1S TEMP 
)SAVE CALC 


NOT SAVED. THIS WS |S TEMP 


Notice that the active workspace could not be saved with a name of another existing workspace. 
This is a safety feature against accidentally overwriting workspaces. On the other hand, if you want to 
save this workspace with the name CALC, you can do so by using the workspace identification com- 
mand to change the name of the active workspace explicitly. Notice that a workspace can be deleted 
with the ) DROP command and that the current time is noted: 


)WSID CALC 
WAS TEMP 
) SAVE Save workspace with previously assigned name. 
CALC SAVED 1989-2-14 03:02:11 
)LIB 
CALC CHAP 3 TEMP 
)DROP TEMP 
1989-02-14 03:02:36 
)LIB 
CALC CHAP 3 Workspace TEMP no longer exists. 


The final topic in this section is an exercise in transferring workspaces between disk drives. Trans- 
fers between libraries on a time-sharing system are analogous. Suppose a friend has provided sev- 
eral public domain workspaces on a floppy and suggested that you put copies of the L /NALG and 
NUMBERTH workspaces onto your hard disk. Suppose the floppy disk is drive 1 and the hard disk 
is drive 3. Here is a sample of how the workspaces can be transferred using APL commands: 


)LIB 1 
LINALG NUMBERTH TEST UTILITY 
)LOAD 1 LINALG 


B.3 System Commands 


1 LINALG SAVED 1986-10-17 15:10:11 
)SAVE 3 LINALG 

3 LINALG SAVED 1989-02-14 03:04:19 
)LOAD 1 NUMBERTH 

1 NUMBERTH SAVED 1985-05-09 09:10:37 
)SAVE 3 NUMBERTH 

3 NUMBERTH SAVED 1989-02-14 03:04:21 
)LIB 3 

CALC CHAP 3 LINALG NUMBERTH 


That completes the transfer of the two desired workspaces. 
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) CLEAR Replaces the active workspace by a clear workspace, which contains no 
user-defined variables or functions and has system variables set to the 


default values. 


) CONT INUE Saves the active workspace with the name CONT / NUE and exits 
APL. Some systems provide an automatic save to the CONT | NUE 
workspace when a connection is lost. The workspace is reloaded via 
) LOAD CONTINUE. Since it is easy to overwrite important work 
when next using the CONT | NUE workspace, a save command ) SAVE, 
with a good choice of name, followed by ) OFF is recommended instead 


of )CONTINUE. 


)COPY ABC F G X_ Copies the objects (functions, variables, or groups) F, G, and X from the 


workspace ABC into the active workspace. 


)COPY 1 ABC F G Copies the objects F and G from the workspace ABC from disk drive 1 


or account number 1. 


)DROP ABC Deletes the workspace ABC from the default disk drive or account number. 


)DROP 2 ABC Deletes the workspace ABC from disk drive 2 or account number 2. 


)ERASE X TT A Deletes the objects X, TT, and A from the active workspace. 


)GROUP AB X F Y Associates the objects X, F, and Y as members of a group with the name 
AB. This group of functions or variables may be copied or erased by 
referring to the group name AB. Not all modern APL systems support 


“group” commands. 


)GRP AB Lists the members of the group AB. 

)GRPS Displays the names of the groups in the active workspace. 

) HELP Invokes the help utility on systems with this facility. 

)LIB Lists the names of the workspaces on the default disk drive or account 


number. 
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)LIB 2 
)LOAD ABC 


)LOAD 1 ABC 
) OFF 


)PCOPY ABC A F 


)RESET 


) SAVE 


)SAVE ABC 


)S/ 


)SI1Vor )SINL 


) SYMBOLS 


)WS 1D 
)WSID ABC 


)XLOAD ABC 


Lists the workspaces on disk drive 2 or account number 2. 


Replaces the active workspace with the workspace ABC from the default 
drive or account. 


Loads the workspace ABC from disk drive 1 or account number 1. 


Exits APL. The active workspace is lost; it should be saved, if so desired, 
before exiting APL. 


Protects during copying. Copies from the workspace ABC the objects A 
and F; objects with the same name in the active workspace are not over- 
written. The disk drive number of the workspace may also be included. 


Resets the state indicator. The suspended functions are all restored to a 
normal state. Workspace variables are all available for use and none of 
the automatic debugging facilities, is invoked. On some systems this is 
)S1C, State /ndicator C lear. 


Saves the active workspace with the current name. The defined variables 
and functions, system variables, and suspended functions in the active 
workspace are saved. 


Saves the active workspace with the name ABC and assigns the name 
ABC to the active workspace. 


S tate /ndicator lists the suspended and pendant functions. See also ) RESET 
and )S/ Vand Appendix A.3. 


Lists the suspended and pendant functions and the variables local (names 
local) to each. 


Results in the number of symbols for which room exists in the symbol 
table. This 1s automatically increased as needed in modern systems. 


Results in the name of the active workspace. 


Gives the active workspace the name ABC. A disk drive or account num- 
ber may be used before the workspace name. 


Loads the workspace ABC while suppressing the automatic execution of 
CIL X (see Section B.4). 


B.4. System Variables 


UCT 


O10 


Comparison Tolerance is used for comparison of floating point numbers. 
It gives the relative precision required. The default value of LICT is about 
2-* = 1.4 x 10°". See Section 5.12. 


Index Origin determines whether indexing of arrays and axes begins with 
index O or 1. The default value of 1 /O is 1. See Section 9.7. 


OLX 


OPP 


LIPW 


ORL 


B.S 


LA | 


LAV 


LICR 


B.5 System Reports and System Functions 177 


Latent eXpression is a character vector, assignable by the user, which is 
automatically executed each time the workspace is loaded. In a clear 
workspace it is the empty vector. 


Print precision determines the number of base 10 significant figures that 
are displayed. Typically, the meaningful range is 1 to 17. The default 
value IPP is 10. See Section 1.16. 


Print Width specifies the width of the session log display. This is the num- 
ber of characters that can be displayed before wrapping to the next line is 
required. On many systems, the default width is 80. 


Random Link is the “seed” number used for random number generation. 
In a clear workspace this is 16087. See Section 6.1. 


System Reports and System Functions 


"AVG' 


ODL 5 


OER 
EX 


OF | 


UFMT 


"T AB' 


'25.1 37 6' 


Account /nformation contains several numbers in a vector. Typically, these 
are account number, CPU time this session, time, number of characters of 
input and output this session, and so on. See your system documentation. 


Atomic Vector is a vector of all the characters. On typical systems this 
gives all 256 possible bytes that can be manipulated as character data. 


Canonical Representation produces a character matrix that gives the defi- 
nition of the function named in the character vector that is given as the 
right argument. Here the result would give the definition of the function 
AVG. The canonical representation includes the header but not the line 
numbers. 


DeLay causes a wait of at least the indicated number of seconds, here 5. 
The result is the actual delay. 


Event Report gives a report of the last occurrence of an error. 


EXpunges (erases) the most local use of the variables in its right argu- 
ment. Here the variables T and AB would be erased. This could be used 
within a function to free the memory used by a temporary variable once 
the variable is no longer needed. 


Field Input is used to interpret a character vector as numeric data. Non- 
meaningful fields result in Q. In the given example the result would be 
25.1 O 6 since 3T is not a meaningful representation of a number. 
See also OV/. 


ForMar is used for formatting the display of data using several formatting 
phrases. For example, if A*2 30(16)+3 then 


'F10.2'UFMT A 
0.33 0.67 1.00 
1.33 1.67 2.00 
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LIFX CHAVG 


LILC 


LILOAD 'ABC' 


LINC 'F1 A' 


ONL 2 


HQLOAD 'ABC' 


UTS 


The formatting phrases include Fm.n, which gives fixed point format- 
ting in fields of width m and with n figures to the nght of the decimal 
point. Exponential formatting is obtained with Em .n and integer format- 
ting is obtained with /m. Formatting by example is accomplished with G 
formats. The formats are given as a character string in the left argument 
and may be preceded by repetition factors and separated by commas. 
Thus with the same A as above, 


'2E10.2,/2'UFMT A 
3.33E 1 6.67E 1 1 
1.33E0 1.67EO0 2 


FiX is used to define a function whose canonical representation is given 
as the right argument. For example, if CHAVG+*ULICR 'AVG', then 
LIFX CHAVG can be used to define AVG. This is especially valuable 
for defining functions from within function control. 


Line Counter gives a vector of line numbers; it begins with the currently 
executing function line, which 1s followed by the line number(s) of func- 
tions to which that function is pending. This is the empty vector in imme- 
diate execution mode. 


LOADs the workspace ABC. A disk drive number or an account number 
may be inserted before the workspace name. This can be used from func- 
tion control, and the workspace name can be computed during function 
execution. 


Name Class gives the class of the names listed in the right argument. The 
right argument may be a character vector as in the example or a character 
matrix with one name per row. The result is a numeric vector with entries 
corresponding to the names as follows: 


O not in use 

1 used as a label 

2 used as a variable 
3 used as a function 
4 group or other use 


In the given example, the result would be the vector 3 2 if Fl isa 
function and A is a variable. 


Name List results in a matrix of the names of the objects in the indicated 
class in the active workspace. See LINC for the meaning of the indicated 
class. The given example would result in a matrix with rows that give the 
names of ,the variables in the active workspace. 


Quiet LOADs the workspace ABC; that is, loads ABC without displaying 
the date saved message. 


Time Stamp gives the current time as a numeric vector with entries indi- 
cating the year, month, day, hour, minute, second, and millisecond. 


OIUL 
Ovi 


LIWA 


"25.1 37 6' 
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User Load gives the current number of users. 


Validate /nput takes a character argument as its night argument and results 
in a Boolean vector indicating whether or not the fields in the character 
argument represent meaningful numeric entries. Here the result would be 
1 0 1 since 37 is not a meaningful representation of a number. See 
also LIF / , which results in a vector of the numerical values represented 
by the character string. 


Work Area results in the number of bytes of memory currently available 
in the active workspace. 


Appendix C 
Keyboards 


1. The characters shown in Figure C.1 are formed directly or with use of the shift key as indicated at 


the top left of the figure. 
2. Overstrike characters are formed using the backspace key. For example, & is formed by ©, 


(backspace), \. 


Shift 
Direct 
—fil<}]i<]J/= [loll l>ll<4tiv All| - BS 
2 3 4 5 6 7 8 9 O};] + — 
P|] ]] «€ ~J} tty rdye x1) +1] 4 
OTT Py LPI VilaATP ot? yy} Odi ¢ ) 
ATTSIIDIJFI/GI/HI}| J TIKIT LIT ET] I 
CIIDIINI UT LIET ITI \ 
ZiiXIICITIVIIBIINIIM / 


Figure C.1) An APL keyboard. 


1. The characters shown in Figure C.2 are formed directly and with use of the shift and alternate 
keys as indicated at the top left of the figure. 

2. Overstrike characters are formed with the alternate backspace key. For example, & is formed by 
O, (alternate backspace), \. 

3. The primary alphabet is lowercase here so that system commands, system variables, and exponen- 
tial notation are given as )off, LIpp, and 1.23e45 rather than as )OFF, LIPP, and 1.23E45. 
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Shift Alternate 
Direct 


@l#<| IS S| [Gas] JA SL I& >] IK4IT I (VIDA xX} |+-+ BS 
2113 1/4 [15 [16 J17 118 119 |lo JJ- |= - 
Q?] |Ww) |Ee| | Re] |T~)1Yt] JU] ] 1 Px} |i} ]j} 7 
qy(w yre fer yyt y ;yu P {Il ] 
Aa|| SI] |DLI}F | |GV| |HA} | Jo} | K'y | LO} ce] yo 
a lis {id []f [le Tih J]j dik [yl dfs dt 
1 al }ZCl [XD] JCA] |VU] |BLTINT| | MI} |<O] |>2] 124 
\ Z x Cc V b n m , “A 


Figure C.2 Union keyboard (used by I. P. Sharp Associates). 


432m 


Aw v1 


1. The characters shown in Figure C.3 are formed directly and with use of the shift and alternate 
keys as indicated at the top left of the figure. 


2. Overstrike characters are not needed. 
3. System commands and system variables may use either uppercase or lowercase as in )OFF, )off, 


LIPP or Lipp, but exponential notation requires a capital E as in 1.23E45. 


Shift Shift-Alt 
Direct Alternate 


'=] |@Vi [FV [SAL [%O] |AQ! [Kel | x@l [(¥] yal] t| +8 BS 
1 | J2-113<] [4s] |S=] [62] 17>] [84] |9V] | OA] | -x] J== - 
Q?;|W {/Ee;|R {IT |TY | {U [71 P | iH{O}] 3 E 
q?||wwl|feel}rofit~-[lyt} Jub] | is pxl}[<|] ]- N 
A {ljS |/D{|F |/G | |HA)|J K | /L " ~7 
aal||srl{ dl] }f_}|gV| thAl]jo{}k' | 1 oO] > 2h} 2} ] °° 
Ia }Z JX FIC FIV [IB TIN [IM J i< []> |]? 
\KFETZC] } xD} yeA} fvUl | bil} int} imi] | aly: \| | A 


Figure C.3 Union keyboard (used by STSC, Inc.). 
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Appendix D 
Answers to Selected Exercises 


Chapter I 
l. (c) 2 (d) 8 
(g) 1 (h) 0 
(k) O (I) 0 
(o) 0.1 (p) 2.718281828 
(s) 3 (uy) —1 
2. (c) “6 (d) 2 
(g) 6 (h) 1 
(k) 1 (I) 3 
4. (a) 3 3 (b) 6 6 
(cc) ~3 “2 7101 2 3 (7) 321071 72 73 
(i) 1 (jj) “1 "2 “4 
(k) 3 (L) 8 
6. 
BxU +/BxU yields the sum of the odd entries in B. 
103050709 011 0 13 
B«U x /B*U yields the product of the odd entries in B. 
113165 171 92111 1 «13 
7. (a) domain error (b) domain error (e) syntax error 


(f) length error (i) syntax error (j) domain error 
9. (a) .8+.2x*116 
10. (a) +/+1100 
ll. (a) +/VxVor+/V+2 (b) +/1V (d) +/0=V 
13. Moment about x axis: +/M*X yields 2.55 
Moment about y axis: +/M* Y yields 8. 405. 
Center of mass, x coordinate: (+/MxX )++/M yields 0.5257731959. 
Center of mass, y coordinate: (+/Mx Y)++/Myields 1. 732989691. 


Chapter 2 
2. (a) 2 4 4 
6 6 8 
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7p) 
a 
—_ 
7p) 
fee] 
-ovr- 
ss co 
O-nr-rewwwtst 
. Nm re OO 
3° & 
ao wee NA 
MO -_ 
> oF 
Ym NE 
3 
-_ov-, 
2% OD 
. ww’ 
nos N 
~ ~O ay 
Qs! 
+ 2 rw 
~— Ta 
ra ~~ 
a Sei ae 
ot 
a aan 
i a 
(oN oO 
st Ma rs) 
« ww’ 
an eo) 
SaeSSS 
wee’ ee’ Ne’ We Oe” 


(b) and (d) give a length error 


(a) and (c) 


11. 


N © 

rm 

Com. 

Ne 

© © 

rm LO 

am 

= 

wu’ 

~~ 

2} 

ra | 

-ov—-, 

—) 

wu’ 

TO +tONmM 
NI © — 
~--y OnReKOM 
NI LO =< 
or NWOOM 
5 ee @) = 
W) = mam LOD © 
rm LO 

SC 2 

ww’ ~~” 
OoOwmo +tOQ 
NN © a 
WoOosTnOore 
me NO - 
Osrnao © 
mam NO = 
TNO- wD 
mam NO 

“~~ ~_~ 

a > 

ww’ ww’ 

~~ ~~ 

= = 

ra | ra | 

~~ =~ 

= = 

ww’ 


(t) and (u) 
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19. (a) 7 4 (b) 3 4 
(c) 2 4 (d) 4 8 


(e) 4 (ff) 4 2 3 

20. pVC/ lisp! 

21. (a) 3 4 (b) 3 (one element vector) 
(c) empty vector (d) O (one element vector) 
(e) (empty vector) (f) (empty vector) 


(g) (empty vector) 
22. (a) 15 (b) 10 (c) 5 (d) O (e) O 
23. (a) 2 (b) 1 (c) empty; shape 3 0, dimension 2 (e) 8 
2 2 (d) empty; shape 4 OQ, dimension 2 8 
2 5 8 
(f) empty; shape O 5, dimension 2 (g) empty; shape 0 4, dimension 2 
(h) empty; shape 0 1, dimension 2 (i) 3 (one element matrix) 
(j) empty; shape O O, dimension 2 


Chapter 3 
1. Vv Z+SD V 
C1] Z+((+/(V-(+/V)FpV)*2)+°1+9V)+*#.5 
Vv 
3. Vv Z+E DIST PO 
C1] Z+(1+/ExP0,1)=(4+/E013]+*#2)+0.5 
Vv 
5. (a) 4.84 (b) 4.0804 
(c) 4.008004 (d) ~3.9204 
(ec) ~3.992004 (f) 4.008004 
7. Vv Z2+N RANINTERVAL INT:A;:B 


C1] A+INT(1] 

[2] B-INT(C2] 

[3] Z+A+(1E°17xB-A)x?No1E17 

9. (a) PARTI T1/ON creates a vector of endpoints of the subintervals of its right argument. LHEP 

approximates a definite integral using rectangles with heights determined at the left-hand 
endpoints. 

(b) Vv Z2+N RHEP AB 
C1] Z+((ABL2]-A8[l1])=N)x+/(0,Np1)xF N PARTITION AB 


Vv 


(c) v Z+N TRAP AB 
[1] Z+((AB(2]-ABL1])=+2*N)*+/(1,((N-1)p2),1)*F N PARTITION AB 


Vv 


(d) Vv Z+N SIMP AB 
C1] Z+((ABL2]-ABL1])+Nx6)x+/(1,((N-1)p4 2),1)*F N PARTITION AB 
12. X) = 2, Xi = ~1.105719329 F(X.) = ~9.853229344E ~ 16 
Xy = 8, Xo = 4.949418444 F(X,.) = 3.552713679E ~ 15 
13. v Z+POLYDER P;E 
[1] Z+PL1+E]xE+1-1+pP 


Vv 


15. 


16. 


18. 
20. 
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Here D gives the number of terms in the resulting polynomial, and C give the coefficients that 
are multiplied times each term. 


Vv Z+N POLYHDER2 P;C:D 
C1] D+«(pP)-N 
[2] Cex/(~141D)°.+1N 
C3] Z+CxP[N+1D] 


Vv 


(b) /TER2 N gives the sum of the first N positive integers (0 if Nis Q) 

(d) /TER4 WN gives a list of the first N “triangular” numbers (the Kth triangular number is 
the sum of the first K positive integers; that is, +/1K). (Empty when Nis Q.) 

(f) /ITER6 WN gives 0 if Nis not 0; it is 1 if Nis O. 

X, = 2, X, = 8, X;5 = ~ 1.105719329, F(X,5) = ~ 9.853229344E ~ 16 
Vv Z+FIB N;K;OLDZ ;NEWZ 

C1] Z*O 190 Keil 

[2] +3xK<N 

C3] Z+Z,+/Z(K+0O 1] 9 K+K+1 

[4] +2 
Vv 

1123 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 
6765 10946 17711 28657 46368 75025 121393 196418 317811 
514229 832040 1346269 2178309 3524578 5702887 9227465 
14930352 24157817 39088169 63245986 102334155 165580141 
267914296 433494437 701408733 1134903170 1836311903 
2971215073 4807526976 7778742049 12586269025 


Chapter 4 


1. 
3. 


eeu 


10. 


13. 


14. 


4 ~1 2 ~1 POLYVAL 30 PARTITION ~1 2 
Vv Z+VANDERMONDE X 
C1] Z2+X°.* 1+19X 
Vv 
(110)°.=110 
(a) —216 + 265.6t (d) —4 — 2¢ + 2¢° + 4¢° 
(a) U+.=V yields the number of positions in which the vectors have the same component. 
(d) A+. *xV yields the sum of all the numbers from 1 to 100 that are either multiples of 5 or 2 
more than multiples of 5. A . * V yields the product of the same set of numbers. 


(b) “1 "2 “3 “4 (c) ~1 i) 1 5 71 


~2 2 62 
~3 3 7 “3 
~ 4 4 8 “4 


(a) 0.479623078 0.7871183218 0.387822705 
(b) 11.79886983 
(c) ~4.208802418E' 9 5.132452241E°9 ~5.211679976E 9 
(a) V+0.0008488338378 ~0.5206534552 0.8537676845 
(b) 0.5168397689 using V+. xA1+.xV 
(c) 1.333715873 ~0.4785159911 ~0.2931395881 
(d) ~0.7224497355 ~0.06356822402 0.6884950694 
~1.442466986 
0.01269801795 ~0.01360978565 0.01206766784 
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15. (a) 0.5481205682 ~0.615289491 0.5665533382 
(b) 1.644333726 
(c) 0.00000338887139 3.912404372E°-7 ~2.853718924E 6 
(dq) ~0.7265445758 ~0.05915772283 0.6845679976 
~1.443203669 
1.499485549E'7 ~1.623066018E 7 1.451172427E° 7 
16. (a) -0.5459938902 0.6171913235 ~0.5665382089 
(b) 1.644319472 
(c) 0.008413063693 0.01853637067 0.01208569107 
18. Vv Z*+GRAMSCH A;K;N 
C1] K+-0 9 Ne(pA)L2] 9 Z+AL;10] 
[2] *3xK<N 
[3] K+K+1 
[4] Z+Z,UNIT AL: KI]-AL;\1K-1]+.xAL;K]HAD;1K-1] 
[5] +2 
Vv 
19. Vv Z+N QR A;Q;K 
C1] K+0O 0 Z+A 
[2] +3xK<N 
C3] Z+(&8Q)+.xZ+.xQ*GRAMSCH Z 
[4] K+K+1 
[5] +2 
Vv 
5 QR Atl 
11.799 ~0.68827 ~1.5867 
0.00097477 1.1477 ~1.1753 
0.00027704 ~1.0948 ~0.94664 
10 QR Al 
1.1799E1 3.6112E°1 1.6921E0 
4.3038E 8 1.5142E0 ~5.8159E 71 
8.1725E°9 ~6.6192E 71 ~1.3130E0 
15 QR Al 
1.1/799E1 ~2.1565E°1 ~1.7167E0 
2.1908E°-12 1.5945E0 ~4.3133E71 
2.3392E°-13 ~3.5100E71 ~1.3934E0 
20 QR Al 
1.1/799E1 8.7254E° 2 1.7280E0 
~5.5008E°-16 1.6379E0 ~1.0594E71 
~9.5443E°-15 ~1.8627E 1 ~1.4368E0 
Chapter 5 
2. (a) +/D<|M-V (b) +/D>|M-V 
4. +/((J<V)AV<K)V(M<V)AVKN 


or 


+/VA((J,M)e 


.<VIACK,N)°.>V 


6. Counts the entries of V that lie in at least one of the intervals. 
(a) Boolean vector with 1s marking the positions of 2s in V. 


(b) Boolean vector with 1s marking the positions of 2s, 5s, and Qs in V. 


(c) Count of the number of 2s, 5s, and Qs in V. 


Appendix D- Answers to Selected Exercises 187 


(g) 


10. (+/SxS210)++/S210 
12. (d)_ Is at least one entry of U less than or equal to the entry in the corresponding position of V? 
(e) Is U different from V in at least one position? 
(g) Is every entry of V positive? 
14. To three decimal places: 2.854 
16. .1*L.5+1000xS+650 
18. Vv Z+WARSHALL R;K;N 
C1] Ne(pR)C1] 9 Ket 
[2] Z+RVROE;K]°.ARLK; ] 
[3] *4xV/V/Z#R 
4] R+Z 
[5] +2xNzK+K+1 
Vv 
Chapter 6 
2. (5>+/R)V6V.=R+?76 6 6 
4. Vv Z+AVGMATCH N; ! OIRL+16807 
C1] Z+10 9 /+0 AVGMATCH 100 
C2] +3+3xN=/ 0.9 
C3] Z+Z,+/(20?20)=:120 
[4] [«/+1 
[5] +2 
C6] Z2+(+/Z)=N 
Vv 
6. Changes are in the header and lines 1 and 3. 
Vv Z+V POLYA U;B;D;!I1;K;N;R;7T;W 
C1] ReVC1] 9 WeV[2] 9 K+eV[3] 9 D«U[1] 9 N+UL2] 
C2] T+R+W 9 1+0 9 210 
C3] +4x/<D 
[4] B+R2?NoT 9 2+2,(+/B)=N 
[5] I-+/+1 9 ReRt+KxB 9 TeTt+K 
[6] +3 
Vv 
8. (a) ~3.544907702 1.772453851 0.8862269255 4.260820476 
7.188082729 
(b) domain error (c) domain error 
12. ORL+16807 
X+RANREAL 1000 9 Y+*(2+*.5)*xRANREAL 1000 9 .001x+/Y<40X+«2 
0.779 
Chapter 7 
l (@ 1°74 3 72 (b) 10 5 0 
(c) 5 (d) 6 7 5 
() 39 6 7 ( O03 “1 73 
9 
Ss) 


(i) 
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3. 


10. 


12. 


14. 


17. 


20. 


22. 


23. 
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((+/V)-(T/V)+L/V)="2+pV 7.666666667 
(a) 241 8 (b) “2 01 83 


(a) AEIOUA (d) ADE 


E | OUAE BCB 

|OUAE | 
(a) eo LTH 4). <i4] (b) ‘'*°'[C14+(14)°. #14] 
(c) ‘'*',(3 Sp'o'), C1) '*' (d) (15)/'+-=<|' 


Need p U to be the same as p V. The result is a vector with + /U entries. That does not depend 


on V. 


Vv Z+MODE W:A;F;M 
C1] A+«M+~14+1(7 /W)-M+L/W 
[2] Fe+/Ao.=W 
[3] Z+(F=[/F)/A 


Vv 


(a) 13 61015 21 28 36 45 55 
(b) 12 6 24 120 720 5040 40320 362880 3628800 
() 1°12 7°23 °3 474 5 75 
(dd) 222255577 7 
() 20 °2°2°7°2 "2 “2 “2 “2 “3 
Vv Z+PLOTXYC XY;R;S;X;Y 
C1] Ref /X+1+XYO1;]-L/XY1; ] 
[2] Sef /Y¥+*+1+XY(2;)]-L/XYL2; ] 
[3] Z+(SxR)p' ' 
[4] ZUX+RxS-YJe's«et+OVx#¥, '([XYL3;]] 
[5] Z+(S,R)p0Z 
Vv 
Vv Z+N PLOT2FCT AB;Y1;Y2 
C1] Y1+LO.5+FCT1 X+«(N-1) PARTITION AB 
[2] Y2+LO0.5+FCT2 xX 
[3] Z+PLOTXYC ((3,N)90(1N),Y1,N/1),(3,N) 90(1N), 
Vv 
Vv Z2+SC SCHIST W;sM;:A;F 
C1] A+M+~14+11+(7/W)-MeL/W 
[2] FelL0.5+(+SC)x+/Ao.=W 
[3] Ze' *'(14+(Mt+1-iM+[/F)°.<F] 


Using URL «16807, average: 1. 52, 
standard deviation: 0.9997979594 


Y2,N/2 
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2 SCHIST X21 


* 

** 
k* 
x * 
x * 
kk 
kk 
xk 
kakek 
kek 
kek 
kk«ktk 
kkk 
kkk 
kkk 
kkk 


kkeaektk 


Using URL «16807, average: 99 . 30638036 
standard deviation: 11. 70147525 


HIST L.5+X23 


* 
xt * 
xt * 
* kk * x * x * * 
* * * kat * * * zkkeekt xt 
*x kkkeark kaeekakt zkAkeaerkkeeaeaert rkker xt 
* * * * x xekwekekaerk ktaekeekkee aeaekkekkekaetk kaekekaekkeaet * * 


(a) Vv Z+SAMPQ R;K;X;Y 
C1] K-0 9 210 
[2] *+3xK<R 
C3] X+0 30 SAMPUN! 1 
[4] Y+O0 0.5 SAMPUNI! 1 
C5] +34+3xV<(Xx30-X) +4500 
[6] Z+Z,X 9 KeK+1 
[7] +2 
Vv 
(b) 


xekekkeke keke kaka KEKE KKK * * * 
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29. 


31. 
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(a) Vv Z+PD SAMPD R:C: IN 
C++\PD[2; ] 

IN«1+(19C)I[ .xCe.<RANREAL R 
Z+PD(1;/N] 


amare 
WP — 
a oo 


(b) 


et + 6 6 6H 6 6 HF HSH F&F HF HF HF 


+ + & 


+ 


* * * 

kaekektk 
kkk kk 
kkeaek ak 
kaeaekekt 


kkekekkk 


Vv £2+MS SAMPNORM R 


C1] Z+MS([1J+MS[2)]*x(102xORANREAL R)x(~2x@®RANREAL R)+*0.5 


Vv 


Chapter 8 


1. 


12 3 (b) 5 8 
(c) 2 3 5 8 (d) 1 1 
) 1123 5800 f) 00112 3 5 8 
(g) empty vector 
(a) and (c) A must be a vector of integers with as many components as B has axes. 
(b) IA (d) Of (pB)-IA 
(a) The function POL YADD (Section 8.2), which was written for adding polynomials in one 
variable, works also for polynomials in two variables. How about three? 
(b) 8 0 0 0 1 
or 8 + 3x + 4x7 + Sxy? + 3x’y? + y* 


,X/ pA 
Replace line 1 by M«(p,A)I 0,8. 
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9 (29 01123 3 «0 () 0 123 0 
1223001 123 01 
233011 2 123 0 1 

ec) 000100200383 0 0 0 23012 
100200300000 1 23012 
2003000001002 23012 

10. (a) U may be a scalar or a vector of nonnegative integers matching the length of the last axis 
of A. 

(b) U must be a Boolean vector having as many 1s as the length of the last axis of A. 

(c) U may be a scalar or a vector of nonnegative integers matching the length of the first axis 
of A. 

(d) U must be a Boolean vector having as many 1s as the length of the first axis of A. 

14, v Z+U POLYMULT V 
C1] Z++4#(1-1pU)OUe.xV,0x1!1U 
Vv 
15. It yields the vector of coefficients of the product polynomial in decreasing power order. 
17, (@)9 O 123 0 (b) 0 20 3 1 
2301 1 13 20 2 
012 2 3 2131 0 

() 0123 0 (dd) 123 0 0 
1123 0 2301 1 
1223 0 3012 2 

) 0321 0 (ff) 23 012 
103 2 1 123 0 1 
21032 0123 0 

19. (a) A must be an array of integers having shape ~ 1! 9A; that is, the shape of A less its last 
component. 

(b) pA 

20. 2 1 3&A 
22. Vv Z+DIAG V;N 

C1] NepoV 

C2] Z+(-1N)O((N,N-1)T0),V 
Vv 

23. (a) 5 12 (b) 2 5 6 
(c) 10 6 (d) 5 2 6 
(e) 5 12 (ff) 5 6 2 
Chapter 9 

2. (a) Gives the same vector as 4V. 

(b) Gives the same vector as 44 V. 

(c) Gives the ranks of the elements with the highest element of V ranked first. 

3. ITA 

4. GPA[4GPAL ; 2]; ] reorders the rows of GPA so the second column is in increasing order 


and the original order is preserved when ties occur in the second column. 

GPA[ ¥GPA[;31; 1] reorders the rows of GPA so the third column is in decreasing order 
and the original order is preserved when ties occur in the third column. 

GPA[ ¥GPA[;4];] reorders the rows of GPA so the fourth column is in decreasing order 
and the original order is preserved when ties occur in the fourth column. 
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31. 
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GPA([¥YGPA[;4 3]; ] reorders the rows of GPA so the fourth column is in decreasing 
order and ties are decided by putting the third column in decreasing order. Moreover, the original 
order is preserved when ties occur in the fourth and third columns. 

GPA ,4¥GPA[;4 3] gives the matrix with the rankings according to the ordering in the 
previous part. 


v Z+ALPHAB A;ALF 
ALF+' AaBbCcDdEeFfGgHh liJjJKKLIMmNnOoPpQgqRrsSsTtUuVvWwxxYyZz ' 
Z-ACTFALFiA; ] 


8 7853 1 
4517 
a vector; that is, 1=p pA. 
(b) eB 

Vv Z+NUB W 
C1] Z-+((WiW)=1pW)/W 

Vv 

Vv ZeHIST W:M:A;F 
C1] A+«M+i1+([/W)-M+«L/W 
[2] Fre+/Ao.=W 
C3] Ze' *'[(M-i\M+-[/F)°.s5F] 


v Z+P POLYVAL T 
C1] Z+P+.xT*(ipT)-U/0 


-& 


12 4644412266 9 
(c) The multiplication table modulo 6 has zero entries other than those in the first row and column. 
(a) 2 2 2 2712+4 (use L] /O+0) 
(b) 3 3 3T13*3 
+/A#X=0X+4 NUMBASE N 4 9 16 25 
(a) No condition 


(b) (pV),pB 

(a) (pV)=1TpB 

(b) 1108 

(a) Vv Z+S2HMS SEC 0 0 1 13 
C1] Z+24 60 60TSEC 0 8 23 53 

Vv 50 20 20 20 

Vv Z+HAM NMES;Q 

C1] Q-8 2222713118 74 2 1 

[2] Z+Q#.A22 22 T 16 16 TOAViNWVES 


Vv Z+CORHAM RMES ;-M 
Me2 2 274261593 7 
Z+RMES#(17)°.=(21M)121M#.ARMES 


[ ee Ol coe | 
N) — 
—s 
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Chapter 10 


1. 


19. 


22. 


(a) 


(c) 


C1] 


Vv Z+ARITHMEAN V (b) v Z+GEOMEAN V 
C1] Z+(+/V)+oV C1] Ze(x/V)*t+pV 
Vv Vv 
Vv Z+HARMEAN V 
[1] Z2+(pV)++/=V 


Vv 


v Z+BORDA B:S:T BORDA B yields 3 
Z+0 BORDA C yields 4 
+(1<+/S=T+L/S++/B)/0 
Z2+Sill 

Vv Z+COPELAND B;:H 
H-.5x11)pB 
Z-+B+.<&B 
Z2+(H<Z)-(0<Z)AZ<H 
Z+-t+/Z 

Vv 

Vv Z+MAJ B;I1;N 

C1] N-1!oB 

[2] 2-1 x(N+1)#/1¢((NF2) <4+/1=B) 11 
Vv 

Vv Z+REM2S N 
Z+N=2+*~1+(0(([2@N)92)TN)11 


Vv 


Assuming index origin has the default value 1: 


[3] 


+(BEND ,0,AEND)[2+x(F A)xF Z] 
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In index origin 1, all of (a)—(d) have the same effects. In index origin 0, (a)—(c) have the same 
effect, but (d) produces a branch to 10 if Nis not less than 10. 


C1] 
[2] 
[3] 


v Z+THREE1TWO N 
Z+,N 
Z+Z,N«REMOVE2S 1+3xN 
72x (N#1)ANA,24#7112Z 


Vv 


(a) Ais HERE IS SAMand pAis 11. 
(b) Bis HERE '!S SAM ' and pBis 13. 


Modify lines 6 and 7 of ADAP INT to get ADAP 1 NT3 and use A/RS3: 


C1] 
[2] 
C3] 
[4] 
[5] 
[6] 
C7] 
C8] 
[9] 


Vv ADAPINT3;A;B; INT 
U+'WARNING: THE INTEGRAND IS ASSUMED TO BE THE FUNCTION F' 
U+'PLEASE ENTER THE INTERVAL OF INTEGRATION AS A VECTOR: ' 
INT“ 9 AcINTL1] 9 BeINT(2] 
U+'PLEASE ENTER THE DESIRED TOLERANCE: ' 
TOLERRPU~ |0+B-~-A 
NRS+0 © INTAI +0 290 a INTAI 1S LIST OF ACCEPTED INTERVALS 
ZAI+A AIRS3 B n ZAI CONTAINS ADAPTIVE APPROXIMATIONS 
O-+'THE ESTIMATED INTEGRAL !S:' 
O+ZA/(1] 
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[10] OU+' THE NUMBER OF CALLS TO THE INTEGRATOR WAS: ' 
[11] OU+NARS 


Vv 


A!IRS3 is AIRS with changes on lines 3, 6, and 7: 


v Z+A AIRS3 B;M 
C1] ESTERR<«|-/2Z+A ROMS!IMP B 


[2] NRS+«NRS+1 a COUNT CALLS TO ROMS!IMP 

C3] ~(ESTERR< TOLERRPU~x |B-A)/ACCEPT 

C4] M-(A+B)=2 a IF NOT, FIND THE MIDPOINT 
[5] Z+(A AIRS M)+M AIRS B an CALL AIRS ON HALF INTERVALS 
[6] 7-0 


C7] ACCEPT: INTAI<«(A,B),C1]INTAI 


Vv 


For (a) and tolerance 1E~ 5, the estimate is 3.141592661 using seven calls and accepting the 
four intervals 


0 0.25 
0.25 0.5 
0.5 0.75 
0.75 1 


With tolerance 1E~ 10 the estimate is 3.141592654 with 141 calls and accepting 71 intervals. 
(a) 1 2 (b) *1 2+ () N=1 2 3 4 5 ETC. 

3.4 +3 4* 
A«(115),81.06 1.08 1.1°.%*115 
B-(17p5 1/1 0)*2 0 8 4 8 4 8 44%A 
C+' YEAR 6% 8% 10% '‘',(€1]'-',€1],B 
(a) 9 (b) AAAAA is the numeric matrix 1 2 (c) 3+3+3 

3.4 9g 


(a) 729 729 729 
729 729 729 
729 729 729 


4782969 4782969 4782969 
4782969 4782969 4782969 
4782969 4782969 4782969 


14348907 14348907 14348907 
14348907 14348907 14348907 
14348907 14348907 14348907 


(b) 729 “729 729 
“729 729 ~729 
729 ~729 729 


4782969 ~4782969 4782969 
~4782969 4782969 ~4782969 
4782969 ~4782969 4782969 


32. 


(c) 


(d) 


(e) 


(f) 


(a) 


14348907 
~ 14348907 
14348907 


. 3449556 
.3435781 0.295 
.3441603 0.295 


.344262556 0. 
. 3442620376 
. 3442622567 


. 3442623925 
. 344262199 
.3442622808 0. 


-1434 
1434 
-1434 


0.294 


.03813773518 
.02595110586 


.03326975878 
.02263865507 


ooOo0o O00 O00 CO0O0Oo oO0O0 COCO 


¢) 
NO 
N 
Oo 
©O 
ot Oo O-O 
¢) 
NO 


0 
32768 32 


0.00390625 0. 
0.00390625 0 


0 
0 
.02620176723 0. 
0 
0 
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8907 
8907 
8907 


8282 
3324 
1193 


2950818717 


0 
.2950820615 0 
.2950819813 0. 

0 
0 
0 


.2950819316 
.2950820024 


2950819725 


14348907 
~ 14348907 
14348907 


0.3602162 
0.3610895 
0.3607204 


. 3606555723 
. 3606559009 


360655762 


. 360655676 
. 3606557986 
. 3606557468 


.0895521 0.1479406 0.1239226 
.1137097 0.1878485 0.1573494 
.0773746 0.1278229 0.1070696 


.03003556673 0. 


04961881403 0.04156283173 
.06300361191 0.05277450845 
.04287127682 0.03591080721 
04328536988 0.03625766919 
.05496170553 0.04603826518 
.03739910174 0.03132708032 
384 
0 
384 
768 
0 
768 
0234375 0.01953125 
~0.00390625 


~0.00390625 ~0.0078125 ~0.00390625 


1.525878906E 5 
1.525878906E 5 
~1.525878906E 5 


7.629394531E 6 

7.629394531E 6 
~7.629394531E 6 
01 
01 


9.155273438E°5 7. 
0.000000000E0 
~3.051757813E'5 “1 


~1.525878906E' 5 “2. 
3.051757813E°5 2. 
~1.525878906E'5 “7. 


(b) 5 6 7 
5 6 7 
1 


629394531E°5 
~1.525878906E 5 
.525878906E 5 


288818359E 5 
288818359E 5 
629394531E 6 
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Index 


Absolute value, 5 
Account information, 177 
Adaptive integration, 144, 148 
Adjacency matrix, 63 
Alphabet, primary, 180 
Alphabetization, 116, 120 
Alternating sum, 8 
ANGLETYPE, 38 
Area approximation, 28, 39 
Arguments: 4 
Array: 

entering, 14 

higher dimensional, 24 
Assignment, 3 
Atomic vector, 124, 177 
Attach, 16 
Average, 7, 27, 58, 81 
Axis, 21 

selection, 18, 24 


Ballots, 139 

Banded matrices, 109 

Base value, 122-123 

Binary representation of text, 124 
Binomial distribution, 74, 94 
Binomial function, 74 

Bisection, 141 

Boolean variable, 59 

Branching, 34, 136, 141 


Canonical representation, 177 
Catenate, 16 

matrices, 16 

matrix with vector, 18 
Ceiling, 64 


Character array, 84 

Character set, 124 

Circle functions, 120 

Clear command, 33, 172, 175 
Combinatorial function, 74 
Comments, 135 

Comparative functions, 57 
Comparison tolerance, 66, 176 
Compression, 87, 102, 137 
Connectivity relation, 68 
Continue command, 175 
Copy command, 173, 175 
Copy with protection, 176 
Cumulative histogram, 88 


Deal, 70 

Decode, 122-123 
Defined function, 26, 134 
Delay, 177 

Descriptive statistics, 136 
Determinant, 46 
Diagonal matrices, 109 
Diamond separator, 36 
Dimension, 21 

Divisors, 132 

Domain error, 161 
Domino, 44 

Dot product, 7, 27, 41 
Drop command, 174, 175 
Drop function, 99, 101 
Duplicates, removed, 117 
Dyadic transpose, 106 


Echelon form, 19 
Editing functions, 30-31 
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Figenvector, 51 

Elementary row operations, 19 
Empty arrays, 22 

Empty vector, 21 

Encode, 121, 123 

Equals, 4 

Erase command, 33, 173, 175 
Error correction, 125 

Error messages, 160 

Event Report, 177 

Execute, 152 

Exit APL, 10, 176 
Expansion, 103 

Explicit output, 37 
Exponential function, 5 
Exponential notation, 9 
Exponential population, 93 
Expunge, 177 


Factorial function, 74 
Fibonacci numbers, 38 
Field input, 177 
Fields, finite, 120 
Fix, function definition, 178 
Floor, 64 
Format, 149, 177 
Frequencies, 84 
Frequency distribution, 60 
Function editing, 31 
Function names command, 33, 172 
Function: 
arguments, 4 
as an argument, 154 
defined, 26, 134 
displaying, 31 


Function (continued) 
dyadic, 4 
editing, 31 
gamma, 80 
header, 26 
monadic, 4 
primitive, 2 
recursive, 142 
scalar, 5 
suspended, 32 


Gamma function, 80 


Generalized inner product, 60, 61 


Grade down, 113, 114 

Grade point averages, 115 
Grade up, 83, 113, 114 
Gram—Schmidt process, 50, 56 
Graph, 63 

Graphing data, 89 

Graphing functions, 97 
Greatest integer function, 64 
Group command, 175 


Hamming code, 125, 127 
Header, 26, 135 
Help, 159, 175 
Heron’s formula, 4 
HIST, 85 
Histogram, 85 
cumulative, 88 
fitting, 103 
scaled, 97 
Horner’s method, 12 


Index error, 161 

Index generator, 8 

Index relative to, 115 

Index origin, 118, 176 
independence, 132 

Indexing, 18 

Inner product, 41 
generalized, 61 

Input: 


Keyboard, 180 


Labels, 138 
Laminate, 108 

Lamp, 135 

Latent expression, 177 


Least-squares approximation, 48 


Least-squares line fitting, 90 
Length error, 162 

Library command, 174, 175 
Line counter, 178 

Line labels, 138 

Load command, 33, 173, 176 
Load function, 178 


Load without executing LIL X, 176 


Load workspace, quiet, 178 
Local variable, 29 
Logarithm function, 5 
Logical functions, 59 
Loops, 34 


Majority, 139 
Markov process, 42 
Matching partners, 70 
Matrix divide, 43 
Matrix inverse, 49 
Matrix power, 153 
Matrix, 13 
adjacency, 63 
blockwise diagonal, 17 
multiplication, 41 
Maximum, 82 
Mean, 81 
Median, 83 
Membership, 65 
Minimum, 82 
Minus sign, 2 
Mode, 96 
Modular reduction, 119 
Monte Carlo integration, 78 
Multioption branches, 141 


Name class function, 178 


Index 


Numerical integration, 28, 39, 
144, 148 


Off command, 10, 176 
Operators, 8 
Order of execution, 2 
Ordering arrays, 114 
Ordering data, 83, 113 
Outer product, 15, 45 
Output: 
explicit, 37, 145 
quote-quad, 146 
Overstrike characters, 180 
Overtake, 99 


Palindrome, 104 
PARTITION, 39 
Pendant functions, 166 
Permutations, 143 

Pi times, 78 

Plotting points, 89 
PLOTXY. 90 
PLOTXYC, 97 
Plurality with runoff, 140 
Plurality, 140 

Polya’s urn scheme, 72 
Polynomial addition, 100 


Polynomial evaluation, 12, 28, 46, 


119, 122 

several points, 15, 46 
Polynomial interpolation, 46 
Polynomial multiplication, 105 
Polynomial translation, 75 
POL YTRANSLATE, 77 
Power method, 51 
Power table, 15 
Preferential ballots, 139 
Primes, 132 
Print precision, 9, 177 
Print width, 177 
Programs, 134 
Pythagorean functions, 77 


quad, 145 
quote-quad, 146 
Integration, adaptive, 144, 148 
Interest table, 151 
Interrupts, 32, 164 Newton’s method, 35, 37 
Inverse power method, 55 Niladic, 135 
lota, 8 Normal population, 94 
dyadic, 115 Nub, 117 


Quad input, 145 

Quad output, 37, 145 
Quad-divide, 44 

Quiet load, 178 

Quote-quad, input and output. 146 


Name list, entering, 148, 153 
Name list system function, 178 
Negation, 5 

Negative sign, 2 


Random link, 70, 177 
Random numbers, 30, 69 
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Random real, 30, 78, 93 
Range, 82 
Rank error, 162 
Rank, 21 
Rankings, 114 
Ravel, 101 
Rayleigh quotient iteration, 55 
Rayleigh quotient, 52 
Reciprocal, 5 
Recursive function, 142 
Reduction: 

matrix, 14 

minus, 8 

operator, 8 

plus, 7 
Relational functions, 57 
Replicate, 86, 102 
Represent, 121, 123 
Reset command, 33, 176 
Reshape, 14 
Residue, 52, 119, 137 
Result error, 163 
Return a result, 135 
Reverse, 104 
RHEP, 28 
Rho, 7 
Roll, 30, 69 
Romberg rule, 114 
Rotate, 104 
Rounding, 65 
Row operations, 19 


Sample space, 84 
Sampling, 93 
binomial distribution, 94 


Sampling (continued) 
exponential population, 93 
normal population, 94, 98 
Poisson population, 98 
real number, 93 
uniform random variable, 97 

Save command, 33, 172, 176 

Scalar, 5 

Scalar functions, 5 

Scaled notation, 9 

Scan operator, 88 

Secant method, 40 

Separating data, 87 

Session log, | 

Shape, 7, 20 

Shifted inverse power method, 55 

Signum function, 5 

SIM, 72 

Simpson’s rule, 39, 144 

Slope of a secant, 154 

Sorting, 83, 113 

Standard deviation, 82 

State indicator, 165 

State indicator command, 33, 176 

State indicator variable names, 176 

State indicator variables, 166 

Statement separator, 36 

Statistics, 136 

Stops, program, 170 

Surprises for new users, 159 

Suspended functions, 32, 165 

Symbols command, 176 

Syntax error, 160 

System commands, 9, 33 

System functions, 177 


System reports, 177 
System solving, 43 
System variables, 176 


Take, 99, 100 

Time information, 177 
Timestamp, 178 

Traces, 169 

Transition matrix, 42, 53 
Transitive closure, 68 
Transpose, 49, 106 
Trapezoidal rule, 39 
Trigonometric functions, 77 


User load, 179 


Validate input, 179 
Value error, 160 
Vandermonde matrix, 45 
Variable names, 3 
Variable: 

global, 29 

local, 27, 29 
Variable names command, 10, 33, 

172 

Vector: 

length, 7 

numeric, 5 


Weighted average, 61 
Work area, 179 
Workspace full error, 163 
Workspace identification 
command, 173, 176 
Workspace, 9, 172 


